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INTRODUCTION 


Ce Livre s'adresse à {ous ceux qui ont une connais- 
sance élémentaire du Basic et sont désireux de £a mettre 
en pratique sur des exemples concrets. Il permettra 
ainsi aux Lecteurs de maîtrisen Le jeu d'instructions 
par £a nésolution d'exercices classiques de programma- 
4ion. 


Le Livre comprend une première partie donnant êes 
énoncés des exercices et une seconde partie nésenvée aux 
solutions. 


La première partie est divisée en chapitres consacrés 
chacun à un thème donné. 


Les énoncés sont en général suivis de L'analyse détait- 
Lée du problème et parfois même de £a solution Lorsque 
L'exercice traité constitue un exemple introduisant une 
notion nouvelle et importante. 


Pour tirer Le meilleur profit de ces exercices il est 
conseilié d'essayer de résoudre Le problème uniquement 
à partir de L'énoncé sans se néférnenr, dans un premier 
Lemp4s, à L'analyse proposée. 


La 4olution donnée pour chaque exercice dans £a seconde 
partie du Livre sous forme de Listing commenté n'est 
Evidemment pas La seule possible, il est d'ailleurs 
recommandé au Lecteur de £a comparer de façon critique 
aux solutions qu'il aura trouvées. 


EXERCICES POUR TO} 


PRÉSENTATION 
DES EXERCICES 


Les énoncés sont formés, en général, de trois rubri- 
ques 


- PROBLEME : donnant L'objectif du programme ; 


- ENTREE : décrivant Les données que L'utilisateur du 
programme devra fournir (par exemple un nom à taper 
au c£avier) ; 


- SORTIE : indiquant ce que £e programme affichera sur 
L'écran. 


L'analyse est constituée d'un organigramme commenté. 


Les solutions comprennent Êe tisting du programme 
proposé, La Liste des varniabèies qu'il utit£ise et L'ex- 
plication détaitiée des £ignes importantes du programme. 
Le numéro de La Ligne précéde alons son exptication. 
{Lorsque L'explication concerne un groupe de Ligne concé- 
cutives seuls Les numéros de La première et de £a denniëènre 
Ligne sont indiqués, séparés par un {tiret). 


1° PARTIE 


ÉNONCÉS ET ANALYSES 


EXERCICES POUR TO7 
CHAPITRE | 


AFFICHAGE, 
CALCULS SIMPLES, 
TIRAGE DE NOMBRES 
ALÉATOIRES 


PROBLEME : affichage des initiales et de la longueur 
(nombre de lettres) du nom d'une personne. 


ENTREE : le nom et le prénom de la personne écrits 
en majuscules. 

SORTIE : les initiales et la longueur du nom. 

Solution 

14 CLE 

4 INPUT Mnel est votre nom": HS 

34 IHPLUT M"uel est votre Prenom'ips 

an FRINT:FRIHT 

SA PRINT THE 1ASLERTS HS Tri" Ml FT PS qui" 

64 PRINT 

FA PRINT "I IMGIELR CL HOM : ":LEMNCHS$ 

4 END 

Variables 

N#ÿ - nom 

P$ - prénom 

Commentaires 

49, 6@ : passe des lignes pour faciliter la lecture. 

54 : affichage à partir de la colonne 19 des ini- 


tiales suivies d'un point. 
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EXERCICE 1.2 


ENTREE : le prénom et l'année de naissance d'une personne. 
SORTIE : affichage du texte 


EH GIE: ÉUMJQOUR Cprénomi: 
JE NE REPETERAI à PEPSONNE QUE TH 5 
HUJOLIRG HUIT Cage ANS. 


Analyse 


I1 faut 


1) demander le prénom de la personne 
2) demander son année de naissance 
3) afficher les lignes de texte (en calculant l'äge). 


EXERCICE 1.3 


PROBLEME : calcul du pourcentage P d'une valeur numé- 
rique N et de la valeur obtenue par appli- 
cation de ce pourcentage. 


ENTREE : la ++ valeur numérique et le taux de pourcen- 
tage. 

SORTIE la # variation de la valeur numérique et la 
valeur finale. 

Analyse 


Entrée de la valeur 
numerique N et du 
taux de pourcentage p 


Calcul du La formule est: 
N = Li P 
100 


Affichage 
de DN et 
de N+DN 


EXERCICE 1.4 


PROBLEME 


ENTREE 


SORTIE 


Analyse 


EXERCICE 1.5 


PROBLEME 


ENTREE 


SORTIE 


Analyse 


Apres l'ent 


EXERCICES POUR TO}? 


calcul de la dépense annuelle approximative 
pour votre nourriture, à partir de la dé- 
pense quotidienne moyenne (en tenant compte 
de l'inflation). 


la dépense quotidienne pour votre nourri- 
ture. 


la dépense annuelle (essayez de rendre l'af- 
fichage aussi clair que possible grâce aux 
instructions CLS et LOCATE). 


Entrée du prénom 
Entrées /------- et de la dépense 
quotidienne 


Caleul de Pour tenir compte de l'inflahon 
la dépense |------ il faut multiplier la dépense annvelle 
annuelle D À par 1,07 (approximation d'une 


inflation de 12.13% par an). 


le joueur doit découvrir par essais 
successifs un nombre entre auparavant par 
une autre personne. 


le nombre à découvrir (entier compris entre 
ÿ et 1998) puis les essais. 


un des messages, “TROP GRAND", "TROP PETIT"', 
ou "BRAVO, VOUS AVEZ TROUVE" selon l'essai. 


rée de l'essai, celui-ci est testé par 
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rapport au nombre à découvrir : s'il lui est supérieur 
ou inférieur le message correspondant est affiché et un 
nouvel essai est proposé. Sinon, le message "BRAVO, VOUS 
AVEZ TROUVE" s'affiche et le programme s'arrête. 


Nà découvrir 


Entrée dun 
essai E 


Afficher 
\ Trop peht" 


EXEMPLE 1.6 

PROBLEME : simulation du lancer d'un dé. 

SORTIE : un nombre entier aléatoire compris entre 
l et 6. 

Analyse 


RND donne un nombre aléatoire compris entre ÿ (inclus) 
et 1 (exclu). Pour obtenir un nombre entier aléatoire 
compris entre l et 6, il faut multiplier par 6 le nom- 
bre fourni par RND, puis prendre la partie entière du 
résultat et lui ajouter 1. L'instruction correspondante 
à ce calcul est : INT(6 * RND) + 1. 


Sotution 

IA TL 

FA CETHTE GC ÆRMC +1 
34 ATTRE 1.1 

4 FPIHT 
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64 PRINT 

FD ATTRE 4.4 

84 INPUT "YOULEZ-YOUS LANCER LE CE À HOUVEAU COLT-MOM 
1 "AS 

94 PRINT 

164 IF A$£>"NON" THEH 24 


114 ENC: 

Variables 

D - nombre entier aléatoire entre 1 et 6 

A$ - réponse du joueur. 

Commentaires 

28 : calcul du nombre aléatoire 

39 : provoque l'affichage en doubles hauteur et lar- 
geur des messages suivants. 

79 : rétablit l'affichage habituel. 

89 : question posée à l'utilisateur (les deux réponses 


possibles sont incluses dans le texte affiché). 
199 : si l'utilisateur n'a pas répondu non, alors 
l'exécution du programme continue à la ligne 29. 
PETIT EXERCICE 1.7 
ENTREE : un nombre de dés à jeter (entre 1 et 8). 


SORTIE : la somme des nombres sortis. 


EXERCICE 1.8 


PROBLEME : version améliorée de l'exercice 1.5 Le 
programme choisit au hasard le nombre à 
découvrir et compte le nombre d'essais 
nécessaires au joueur pour arriver à la 
solution. 


ENTREE : les essais. 
SORTIE : selon l'essai, un des messages : "TROP 
GRAND", "TROP PETIT" ou "BRAVO VOUS AVEZ 


TROUVE EN C COUP(S)". 


Analyse 


Le nombre d'essais est contenu dans la variable C. 
Pour cela, elle est mise à zéro au début du programme 
puis, à chaque essai, elle est augmentée de 1 (elle est 
incrémentée). Une telle variable est appelée "compteur". 


15 


inifialisation 


E 


essai 


Incrémenter C 


Entrée d'un 


EXERCICES POUR TO 


Choix aléatoire 
du nombre N à trouver. 


Mise à zero du compteur 
C. 


: Afficher 
Trop grand” 


Afficher 
“Trop petit” 


Afficher Bravo vous 


Bee Co A mere avez  Frouvé 


EXERCICE 1.9 
PROBLEME 


ENTREES 
SORTIE 


Analyse 


en C coupé)" 


version améliorée de l'exercice 1.8 ajou- 
tant une initialisation aléatoire de l'ins- 
truction RND. 


une touche du clavier puis les essais. 


selon l'essai, un des messages : "TROP 
GRAND", "TROP PETIT" ou "BRAVO VOUS AVEZ 
TROUVE EN C COUP(S)".1". 


L'initialisation aléatoire de la fonction RND utilise 
indirectement la fonction INKEYS. 


16 


EXERCICES POUR TO? 


CHAPITRE II 


MANIPULATION DE TABLEAUX 
(RECHERCHE, CALCULS, 
CLASSEMENT, INSERTION) 


EXEMPLE 2.1 


EROBLEME : trouver le nombre de valeurs positives ou 
nulles dans une liste de dix valeurs. 


ENTREE : les dix valeurs. 
SORTIE : le nombre de valeurs positives ou nulles. 
Analyse 


Il est nécessaire d'utiliser un compteur (ici P) qui 
sera incrémenté (augmenté de 1) dans la boucle pour 
chaque valeur positive trouvée. 


L'utilisation d'un tableau, pour enregistrer les va- 
leurs, facilite le traitement. 


Solution 


14 CIM 410 

PA FEM 

DA REM CHOTE DES VAI FURS 
44 CLS 

SA FÜR Ted T1 


ct FÉTHT MSAL PTE OUT, 
PA OTHPUT MT 

1 HEËT IT 

au FEM 

Lan BEN FTISTT SES OU HUE 
11h Fi 


LEA FOR TIei TO 14 
14 IF WI:=4 THEH F<F#1 


Lt HET T 
154 FEM 
14 RENM AFFICHAGE 
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F4 
1 
13 
F6 
21 


T 


HN 


fi 


EXERCICES POUR TO? 


FGF J=i TO ft 

FRIHT ET: 

HFAT OT 

FRTHT 

FRIHT MHOMBRE DE RAI ENIRS POSTITIMES MI HUIT ES 


FH 


UP Le des dix valeurs 


dans le Fableau 


___ | La prochaine valeur 
est-elle positive ou nulle ? 


Incrémenter P. 


[este la dermère valeur ? 


Afficher P 
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Variables 
I - compteur de boucle 
P - nombre de valeurs positives 
V(19) - tableau des 19 valeurs. 
Commentaires 
19 : dimensionnement du tableau 
59-89 : boucle d'entrée des valeurs : le numéro de 
chaque valeur est affiché par l'instruction 
PRINT et la ligne 6ÿ@ car il est impossible de 
faire afficher par l'instruction INPUT un mes- 
sage comprenant la valeur de I. 
11ÿ initialisation du compteur de Valeurs positives. 
139 : si la Ième valeur est positive ou nulle, P est 
incrémenté. 
179-199: les dix valeurs sont affichées avant le résul- 
tat. 
EXERCICE 2.2 
PROBLEME : calcul d'un prix TTC à partir du prix hors- 
taxe et du code de la TVA à lui appliquer. 
ENTREE : Prix hors-taxe et code du taux de TVA (A, B 
ou C pour 5,5 #%, 18,60 % ou 33 % respective- 
ment. 
SORTIE Le prix TTC arrondi à deux décimales. 
Analyse 


Le taux de TVA correspondant au code est affecté à une 


variable, 


puis le prix TTC est calculé à partir de cette 


variable. Si le code tapé ne correspond à rien, un autre 


code TVA 


est demandé. 
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Entrée du 
prix hors-Faxe 


Entrée du code 
TVA .dansC $ 


Mettre la 
TVA à5,5 


Mettre la 
TVAà@6 


oui 
Mettre la 
TVA à 33 


Calcul du 
prix TT.C. 


Affichage du prix T.T.C. 


arrondi à deux décimales. 


Sortie 


EXERCICE 2.3 


PROBLEME : ñême programme que le précénient {exercice 2.2) 
mais pour un groupe de dix prix à la fois. 


ENTREE : dix prix hors-taxe et le code du taux de TVA 
à leur appliquer. 


SORTIE : les dix prix TTC arrondis à deux décimales et 
alignés sur le point décimal. 
Analyse 


L'utilisation d'un tableau pour enregistrer les dix 
prix permet de faciliter les entrées, l'affichage et les 
calculs, en utilisant des boucles FOR-NEXT. 
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rs Entrée des dix prix 
DE" dans un tableau 


Entrée du code 
TVA dansC$ 


Mettre la 
TVAàS,S 


Calcul des dix 


a Gas ds de pra TT amd 


Affichage des dix prix 
—---—----—---+{ avec alignement sur 
le point décimal. 


Sortie 


PETIT EXERCICE 2.4 


PROBLEME : Lecture dans un tableau d'une liste de mots 
enregistrée dans le programme sous forre de 
DATA (essayer de trouver plusieurs manières 
différentes de résoudre le problème ). 


ENTREE : La liste des mots (à partir de lignes DATA). 
SORTIE : Affichage du tableau. 


EXERCICE 2.5 


PROBLEME : À partir d'une liste enregistrée de noms de 
personnes avec leur préncm, chercher la pré- 
sence d'une personne dans cette liste. 
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ENTREE : Une liste de personnes (noms et prénoms). Une 
personne à chercher (nom et prénom ). 


SORTIE : Un message indiquant si la personne se trouve, 
ou ne se trouve pas, dans la liste. 
Analyse 


L'utilisation de l'instruction DATA permet une lecture 
facile et rapide des données dans un tableau. 


Pour savoir si la personne se trouve dans la liste, il 
faut comparer successivement son nom et son prenom a 
ceux de toutes les personnes. 


Lire les Lecture des noms et des 


donnees prénoms à partir de DATA 
DR Entrée du nomef du 
prenom a chercher. 


2 ———-- Y-a-til une personne du 
tableau correspondant ä 
la personne à chercher ? 


AFFicher : 
est dans 
le fichier ” 
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EXERCICE 2 
PROBLEME : 


ENTREE : 


SORTIE 


Analyse 


EXERCICES POUR TO? 


.6 


Recherche, dans un agenda, d'un numéro de 
téléphone ou d'un nom. 


Le nom de la personne dont on souhaite 
connaître le numéro de téléphone, ou le nu- 
méro de celle dont on cherche le nom. 


La personne recherchée avec son numéro de té- 
léphone, si elle se trouve effectivement 

dans l'agenda (attention, plusieurs personnes 
peuvent porter le même nom ! }). 


Les personnes sont enregistrées sous forme de DATA, 
avec leur numéro de téléphone. 


Entrée dunom 
ou du numéro de 
Féléphone 


Une,oudes personnes 
correspondent - elles ? 


Afficher que la 


IAFFichage personne n'est 


EXERCICE 2. 


PROBLEME : 


ENTREE : 
SORTIE : 


pas dans la liste 


7 


Trouver le plus petit et le plus grand élé- 
ment d'une liste de nombres. 


Une liste de nombres. 


Le vlus grand et le plus petit élément de la 
liste. 
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Analyse 


Le plus grand élément du tableau est trouvé de la fa- 
çon suivante 


1) mettre le premier élément du tableau dans la variable 
numérique MA 


2) comparer un à un les éléments du tableau avec MA. Si 
l'élément est plus grand que MA alors c'est lui qu'il 
faut garder dans MA, sinon il ne faut pas changer la 
valeur de MA. 


Lorsque tous les éléments du tableau ont été comparés, 
MA contient la valeur la plus grande. 


Pour trouver l'élément le plus petit, le processus est 
le même (avec la variable MI), en gardant dans MI l'élé- 
ment le plus petit à chaque comparaison. 


Entrée des données 
dans le lableau 
Mettre le premier élément 
= du lFableau dans MA 
et dans MI 


L'élément suivant 
est-il plus petit 
que MI ? 


Est-il plus 
grand que MA? 


Est-ce le 
dernier element 
dutableav ? 
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EXERCICES POUR TO7 
EXERCICE 2.8 


PROBLEME : Trouver dans une liste de personnes la pre- 
mière par ordre alphabétique et indiquer son 


rang. 
ENTREE : Une liste de personnes (noms et prénoms) 
SORTIE : Le rang de la première personne, son nom et 


son prénom. 


Analyse 


La méthode pour trouver la première personne par or- 
dre alphabétique est identique à celle donnée dans la 
solution de l'exercice précédent. Il faut en plus conser- 
ver le rang de l'élément cherché. 


11 y a deux comparaisons à faire, l'une entre les noms, 
et l'autre, si les noms sont identiques, entre les pré- 
noms. 


dans le Fableau 


pores | Entrée des données 


Mettre l'indice 
Mad L'élément suivant du 
tableau, d'indice L,est.il 
avant l'élément d'indice 
M par ordre alphabét:- 
= que ? (son nom est avant 
ou son nom est le même 


et son prénom est 
avant ). 


ERREUR Est-ce le dernier élément 
du tableau ? 


Afficher la 
personne 
d'indice M 
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EXERCICES POUR TO7 
EXERCICE 2.9 


PROBLEME : Classement par ordre décroissant d'une liste 
de nombres entrés dans un ordre quelconque 
(utiliser deux tableaux, le premier contenant 
les nombres à classer, le second pour ranger 
les nombres classés ). 


ENTREE : Une liste de nombres. 
SORTIE : La liste classee par ordre décroissant. 
Analyse 


Deux manières de résoudre le problème sont proposées 


lère méthode : 


Elle nécessite l'utilisation d'un nombre particulier 
ne pouvant appartenir à la liste. Ici nous supposerons 
que tous les nombres à classer sont positifs ou nuls : 
un nombre négatif, par exemple -1, ne peut donc lui ap- 
partenir. 


Le programme recherche l'élément le plus grand du pre- 
micr tableau qu'il ajoute au second tableau ; cet élé- 
ment est ensuite remplacé par -l1l dans le premier tableau; 
le processus est recommencé autant de fois qu'il y a de 
nombres à classer. 


A la fin, le premier tableau ne contient plus que des 
-l, et le second tableau contient les nombres classés 
par ordre décroissant. 


us des nombres dans 


le premer Fableau 


ps grand du premier 
Fableau 

Ajouter cet élement dans 
k second tableau au 
début ou à la suite de 
ceux qu'il contient. 
Remplacer cet élément 
par -{ dans le premier 


Fable au. 


L2 tennis PA 


Le second tableau 
contient-il 

le même nombre -- 
d'éléments que 

le premier ? 


26 


EXERCICES POUR TO7 


2eme méthode 


Cette méthode est applicahle quels que soient les nombres 
à classer. 


Après avoir trouve l'élément le plus grand du premier 
tableau et l'avoir transféré dans le second, celui-ci 
est supprimé du premier tableau en faisant "remonter" 
les éléments suivants d'une position, le tableau des 
nombres à classer contient donc un élément de moins. 


Le processus est recommencé jusqu'à ce qu'il n'y ait 
plus d'éléments dans le premier tableau. 


pra ci Entrée des nombres dans 


le premier tableau 


Recherche de l'élément le 
plus grand du premier 


tableau 
Ajouter cet élément dans 


le second tableau au 

début ov à lasvite de 
ceux qu'il contient. 

Supprimer cet élément 
de premier Fableau en 
décalant les éléments 
sivants dune position 


Le premier tableau 
conftient-il encore 
des éléments ? 


tableau 
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Exemple : 


le premier Fableau 


pus des nombres dans 


Lee de l'élément le 

lus arand du premier 

ï ren 

Ée Ajouter cet élément dans 
k second tableau au 
début ou à la suite de 
ceux qu'il contient. 
Remplacer cet élément 
par -4 dans le premier 


tableau. 


Le second tableau 
contient-il 

le mème nombre ee 
d'éléments que 

le premier ? 


Tableau 


La première méthoge a l'avantage d'être simple, mais 
elle nécessite l'existence d'une valeur ne pouvant ap- 
Partenir au tableau initial (ici -1). 


La deuxième méthode peut s'appliquer à un tableau quel- 
conque mais est plus compliquée et plus longue à exé- 
cuter, à Cause des décalages à effectuer. 


EXERCICE 2.10 


PROBLEME : Même vrogramme que le précédent (exercice 
2.9) mais pour une liste de personnes à clas- 
ser par ordre alphabétique, et en n'utilisant 
qu'un tableau. 


ENTREE : Une liste de personnes (noms et prénoms ). 


SORTIE : La liste classée par ordre alphabétique 
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Analyse 


He) | Entrée des données 


dans le tableau 


Recherche de la personne 
classée alphabétiquement 
- - + la premiere parmi celles 
lacées entre la P ième 
etla dernière dufableau 
Mr de cette personne 
avec la Piëme du lableau 


à classer ? 


er Lil des éléments 


Affichage 
du tableau 


Il est parfois nécessaire de n'utiliser qu'un tableau, 
par exemple lorsque la capacité de la mémoire du micro- 
ordinateur est insuffisante pour en contenir plusieurs. 


Voici la méthode utilisée 


Rechercher le premier élément du tableau par ordre al- 
phabétique, puis permuter Celui-ci avec le premier élé- 
ment du tableau. 


29 


EXERCICES POUR TO7 


Le premier élément du tableau est alors aussi le pre- 
mier par ordre alphabétique. 


Recommencer avec les éléments suivants, chercher le 
premier par ordre alphabétique parmi eux, puis permuter 
celui-ci avec celui d'indice le plus petit. 


Exemple 


MARTIN ler élément 
: par ordre 
GEORGE alphabétique 


<—?e élément 
du tableau 


GEORGE 


MALLAT 


par ordre 


st élément 
alphabétique MARTIN 


PERRIN 


<+—er élément 
par ordre 
aiphabétique 


MALLAT 


MALLAT 


EXERCICE 2.11 


PROBLEME : Ajouter une personne à un tableau classé a]- 
phabétiquement, en l'insérant à sa position 
dans l'ordre alphabétique. 


ENTREE * Une liste de personnes (noms et prénoms) 
classée par ordre alphabétique. Une personne 
à insérer. 


SORTIE * Affichage du nouveau tableau contenant la 
personne insérée à sa position dans l'ordre 
alphabétique. 
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Analyse 


Lecture des noms et 
prénoms dans le 
Fable au à parhr de 


DATA 


Lecture des 
données 


Entrée dela personne 
-4 à ajouter av tableau 
oude Fin ‘pour arrêter 


Recherche de sa position 
- À par ordre alphabétique 


dans le lableau 


Hi Ea posilion est-elle à 
la Fin du lableau ? 
Décaler les personnes 
qui suivent à partir de 
cette posilion d une 
place. 

Mettre la personne à 
ajouter à cette position. 


Ajouter la 
personne a 
ja fin du 


fableau 


Classement 


La liste des personnes enregistrée dans les instruc- 
tions DATA est écrite préalablement dans l'ordre alpha- 
betique. 

Pour insérer la personne à sa bonne place dans l'ordre 
alphabétique, il faut d'abord trouver la position qu'elle 
occupera dans le tableau. Si cette position est la der- 
nière du tableau, il suffit d'ajouter la personne à la 
fin, sinon il faut décaler d'une position toutes les 
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nersonnes qui la suivent dans l'ordre alphabétique. 


Exemple : 
insérer GRANDET dans ‘D 


inchangé D'où le décaiage ? 


position 
d inser- 
tion 


DURAND 


MARTIN 


tion de 
GRANDET 


EXERCICE 2.12 


PROBLEME : Créer des phrases, composées aléatoirement 
à partir de noms, verbes et compléments. 


ENTREE : Une liste de noms, verbes et compléments (en 
DATA ). 
SORTIE : Des phrases aléatoires. 
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Analyse 


_— a une phrase 


composée av hasard 
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CHAPITRE III 


TRAITEMENT DE CHAÎNES 


DE CARACTÈRES 


(RECHERCHE, INSERTION, 
SUPPRESSION DE CARACTÈRES) 


PETIT EXERCICE 3.1 


PROBLEME 


ENTREE 
SORTIE 


: Suppression de tous les caractères "espace" 


pouvant exister dans une chaîne de caractères. 
Une ligne de texte. 


La ligne sans aucun espace. 


PETIT EXERCICE 3.2 


PROBLEME 


ENTREE 
SORTIE 


Ajouter un espace entre chaque lettre d'une 
chaîne de caractères. 


Une chaîne de caracteres. 


La chaîne de caractères avec un espace ajouté 
entre chaque caractère. 


PETIT EXERCICE 3.3 


ENTREE 
SORTIE 


Exemple : 


Une phrase ou un mot. 


Affichages successifs du texte tronqué d'un 
caractère supplémentaire à chaque fois. 


BONJOUR donne BONJOUR 
ONJOUR 
NJOUR 
JOUR 
OUR 
UR 
R 
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EXERCICE 3.4 


ENTREE : Une phrase ou un mot. 


SORTIE : Affichages successifs du texte. À chaque af- 
fichage, le premier et le dernier caractères 
du texte sont enlevés. 


Exemp£e : BONJOUR donne BONJOUR 
ONJOU 
NJO 
J 
Analyse 


Pour obtenir la présentation donnée en exemple, plu- 
sieurs méthodes sont possibles : 


On peut remplacer les caractères supprimés en début 
de ligne par autant d'espaces, ou bien utiliser à l'af- 
fichage la fonction TAB (c'est cette dernière méthode 
qui sera utilisée dans la solution proposée). 


EXERCICE 3.5 
ENTREE  : Une phrase 


SORTIE : Affichages successsifs de la phrase tronquée 
d'un mot supplémentaire à chaque fois. 


Exemple : LE CHAT EST SUR LE TOIT donne 


LE CHAT EST SUR LE TOIT 
CHAT EST SUR LE TOIT 
EST SUR LE TOIT 

SUR LE TOIT 

LE TOIT 

TOIT 


Analyse 


Nous supposerons que tous les mots sont séparés par 
un Caractère "espace". Le programme va donc rechercher 
le premier espace à partir de la gauche de la phrase, 
supprimer tous les caractères jusqu'à cet espace, 
puis afficher la phrase, et recommencer jusqu'à ce qu'il 
ne reste plus de mots. 
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Entrée de 
la phrase 


Affichage 
de la phrase 


Supprimer tous les 


ue L ue Tra " caractères de la phrase 
a ne _ jusqu'au premier espace 
| A . à partir de la gavche 
a P se ‘ 


EXEMPLE 3.6 


PROBLEME : Faire défiler une phrase sur l'écran de 
gauche à droite puis, lorsqu'elle atteint 
le bord, de droite à gauche, et ainsi de 


suite. 
ENTREE : Une phrase de moins de 2ÿ caractères. 
SORTIE : Défilement de la phrase sur l'écran. 
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Analyse 
Entrée de la 
ligne dutexte 
Faire défiler la ligne de lexte 
= --1 de la gauche à la droite 
de l'écran 
Faire défiler la ligne 
= 1 de la droite à la gauche 
de l'écran. 
Solution 


LE CL£ 

SE LINE INPUT "LIGNE CHA: EN CHE, 1 "LS 
SH LeLEHELS3:IF Là THEN 74 
Hi FEM GE GAUCHE À CROITE 

où FÜR I=ù TO 4%-l 

EH FETHT TAEBCT 1.$:; 

PA FÜR ei TD I1W-HEXT I 

GA MEAT I 

3 RENM LE CROITE À GHLIHE 
164 FÜR [=di-Ll TO 4 STEP -1 
FEIHT TAES TL: 

FÜR et TO LU: MEAT 
HMEËT I 

GATO fi 


= 


— mé 
DA RU 


mr M 
ROC EL EX 


mr 


Variables 

I, J - compteurs 

L - longueur de Lg 
LS - ligne de texte 


Commentaires 


59- 89 : La ligne est affichée à partir de la Ième 
position, suCCessivement de la colonne ÿ à 
la colonne 4@-L. 
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Boucle de temporisation. 


La ligne est affichée à partir de la Ilème 
position, successivement de la colonne 4@-L 
à la colonne g. 


Boucle de temporisation. 


Pour que le dernier Caractère de L3 soit sur 


la dernière colonne de l'écran, il faut affi- 


cher L3 à partir de la colonne 4ÿ@-L. 


EXERCICE 3.7 


PROBLEME 


ENTREE : 
SORTIE 


Analyse 


Deux méthodes sont proposées pour résoudre le problème 


Faire défiler un texte sans arrêt de droite 
à gauche sur une même ligne d'écran. 


Un texte de moins de 39 caractères. 


Faire défiler le texte sur l'écran. 


lère méthode : 


Créer une chaîne de 4ÿ@ caractères (largeur de l'écran) 


à partir du texte entré en lui ajoutant suffisamment de 
points à la fin. Pour obtenir le défilement, afficher 
la ligne, retirer le premier Caractère de la chaîne, 
l'ajouter à la fin et recommencer. 


Entrée de 
la ligne 


Afficher la chaîne 
de caractères 


Traitement 


Constituer une chaîne de 


nt G4 caractères en ajoutant 


des points a la ligne 


L {rire le premier caractère de 


la chaîne et l'ajouter äla fin. 
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2ème méthode 


Entrée 
de laligne 


Afficher la ligne de la colonne 1 
jusqu'au bord droit de l'écran, 
-- | el afficher à partir du bord gavche 
de l'écran le morceau de ligne 
restant 


EXERCICE 3.8 


PROBLEME : Transformer une phrase de la forme négative 
à la forme affirmative en supprimant de la 
phrase les mots NE, N' et PAS. 


ENTREE : Une phrase à la forme négative (non terminée 
par un point) 


SORTIE : La phrase à la forme affirmative. 
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Analyse 


Un des mots" NE 
SUN" "ou "us PAS" 
Se trouve -t-il 

dans la phrase ? 


Afficher 
la phrase 


Les Comparaisons s'effectuent avec les mots 
NE, N' et PAS entourés d'espaces pour les 
distinguer de parties de mots (exemple : PAS- 
serelle). Attention au cas où la phrase 
commence avec un de ces mots, ou bien se ter- 
mine avec le mot PAS. 


Remarque : 


PETIT EXERCICE 3.9 


PROBLEME : Insertion de Caractères dans une chaîne de 
Caracteres à une position donnee. 


ENTREE : Une chaîne de caractères, puis la chaîne de 
caractères à insérer et la position d'inser- 
tion. 

SORTIE : La nouvelle chaîne de caractères. 


EXERCICE 3.10 

PROBLEME : Remplacement d'un mot par un autre dans un 
texte ne dépassant pas 128 caractères. Le 
mot doit être remplacé autant de fois qu'il 
se trouve dans le texte (le texte modifié ne 
doit cependant pas dépasser 128 caractères). 


al 
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ENTREE : Un texte d'au plus 128 caractères. Un mot à 
remplacer et le mot à lui substituer. 


SORTIE : Le nouveau texte avec les mots remplacés (il 
ne doit pas dépasser 128 caractères ). 


Analyse 

La recherche dans le texte de la position du mot à rem- 
placer est faite en le comparant à des morceaux de texte 
de même longueur, en commençant au début de la ligne, 
puis en se déplaçant d'un caractère jusqu'à la fin du 
texte. 

A chaque fois que le mot à remplacer est trouvé, le 
programme demande à l'utilisateur, après le test de 
dépassement des 128 caractères, s'il veut ou non rempla- 
cer Ce mot là dans le texte. 


Entrée de la 
ligne, du mot à 
remplacer, et du 
mot à mettre à 
la place 

Y.a-til une (autre) 
correspondance? 


Une correspondance du Afficher CE MOT N’ 
mot a-t-elle éts rouvée F1 EST PAS DANS LA 
LIGNE ” ( 

I 


aumoins une Fois ? 


Le changement 
est-il possible ? 
(la nouvelle ligne 
aurait -elle moins 
det?8 caractères) 
L'utilisateur 
veut-il effectuer 
le ch angement 
pour ce mot là? 
(il tape ovi ou 


AFF cher: 
“CHANGEMENT. 
IMPOSSIBLE ” 


Afficher 


la ligne 


| Effectuer le 


non). Changement 
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EXERCICE 3.11 


PROBLEME : Justification d'une ligne de texte sur 
l'écran. 


ENTREE : Une ligne de texte de longueur inférieure ou 
égale à 49 caractères. 


SORTIE : La ligne justifiée sur l'écran (des espaces 
ont été ajoutés entre chaque mot, de manière 
à ce que le premier et le dernier caractères 
de la ligne soient sur les bords de l'écran). 


Analyse 


11 faut ajouter à la ligne de texte autant de carac- 
tères "espace" qu'il lui en manque pour qu'elle compte 
49 caractères. Ces espaces sont à ajouter en nombre 
approximativement égal à chaque espace existant entre 
deux mots dans la ligne initiale. 


Entrée de 


la ligne 


Mettre le nombre d'espace à ajouter 
à la ligne dans B. 

Mettre le nombre d'espace que 
confient la ligne dans N. 


Ajouter B/N espace(s) à chaque 


espace de la ligne. 


Traitement 


Affichage 
de la ligne 
jushifiee 
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EXERCICE 3.12 


ENTREE : Une phrase ou un mot. 


SORTIE : La phrase avec les caractères dans l'ordre in- 
verse et une phrase constituée exactement des 
mêmes caractères, mais dans un ordre aléatoire. 


Exemple : TABLEAU donne UAELBAT en ordre inverse et, par 
exemple, BLTUAEA en ordre aléatoire. 


Analyse 


La méthode utilisée pour inverser l'ordre des carac- 
tères est la suivante : les caractères de la chaîne à 


inverser sont ajoutés un à un, en partant de la fin, à 
une autre chaîne. 


Exemple : TABLEAU donne U 
puis UA 
puis UAE 
puis UAEL 
puis UAELB 
puis UAELBA 
et enfin UAELBAT 


Pour créer la chaîne aléatoire, un caractère de la 
chaîne, choisi au hasard, est ajouté à une autre chaîne 
puis supprimé de la chaîne initiale. Le processus est 
ensuite recommencé jusqu'à ce que la chaîne initiale 
soit vide. 


Exemple : Avec TABLEAU, on obtiendrait : 
TALEAU et B 
TAEAU et BL 
AEAU et BLT 


AEA et BLTU 
AE et BLTUA 
A et BLTUAE 


et enfin BLTUAEA 
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Entrée de 
la ligne . 


la ligne 
aléatoire 


Affichage de la 


J 
-—--- ligne normole, 


inversee et aléatoire. 


EXEMPLE 3.13 


PROBLEME : Afficher le code ASCII des touches frappées 
par l'utilisateur (utiliser la fonction 


INKEYS }). 
ENTREE : Une touche du clavier. 
SORTIE : Le code ASCII de la touche 
Sotution 
14 CLS 


20 HS=INHEETS:IF A$="" THEH 2Q 
36 PRINT HSCC AS 

44 GOT 26 

Commentaire 


Si ce code est égal à 3 (ce qui correspond à "“CTRL" 
"C"), le programme s'arrête. 
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PETIT EXERCICE 3.14 


SORTIE : Tous les caractères ASCII que peut afficher 
le TO7. 


EXERCICE 3.15 


PROBLEME : Transformation de majuscules en minuscules. 
ENTREE : Un texte. 


SORTIE : Le même texte mais où toutes les majuscules 
ont été transformées en minuscules. 


PETIT EXERCICE 3.16 


PROBLEME : Transformer chaque élément d'un tableau de 
nombres en son pourcentage par rapport à la 
somme de tous les nombres. 


ENTREE : Un tableau de nombres. 


SORTIE : Le tableau obtenu en transformant chaque élé- 
ment en son pourcentage par rapport à la 
somme de tous les nombres. 


EXERCICE 3.17 


PROBLEME : Donner le pourcentage de présence de chaque 
lettre de l'alphabet dans un texte. 


ENTREE : Une ou plusieurs phrases de texte écrites en 
majuscules. 

SORTIE : Chaque lettre de l'alphabet suivie de son 
pourcentage de présence dans les phrases du 
texte. 


PETIT EXERCICE 3.18 
PROBLEME : À partir d'une date écrite en chiffres (ex 


15-7-1799), remplacer le numéro du mois par 
son nom. 
Exemple : "15-7-1799" donne “15 JUILLET 1798". 
ENTREE : Trois nombres correspondant au jour, au mois 
et à l'année. 
SORTIE : Affichage de la date. 
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EXERCICE 3.19 


PROBLEME : Problème inverse du précédent (petit exercice 
3.18 ). 

ENTREE : Une date sous la forme d'une chaîne de carac- 
tères. 
Exemple : “13 JUILLET 1788" 

SORTIE : La date écrite en chiffres 
Exemple : 13/7/1788 

Analyse 


La chaîne de caractères représentant la date est dé- 
coupée en fonction des espaces qu'elle contient. Le nu- 
méro du mois est obtenu à partir de la place qu'il occupe 
dans la liste de tous les mois enregistrée dans une ins- 
truction DATA. 


EXERCICE 3.20 


PROBLEME : Afficher un nombre, entré au clavier, avec 
des chiffres dessinés au moyen d'étoiles sur 
une matrice de cinq colonnes et de six lignes. 


ENTREE : Un nombre entier positif. 
SORTIE : Affichage de ce nombre avec de grands chiffres. 
Analyse 


Les lignes d'étoiles formant chaque chiffre seront 
enregistrées sous forme de DATA. 


Exemple : le chiffre 4 sera, par cxemple, sous la 
forme 


DATA "‘ LAS * mer + nu x * OUR + " 
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CHAPITRE IV 


HISTOGRAMMES, GRAPHIQUES 
HAUTE ET BASSE RÉSOLUTIONS, 
TÉLÉCRAN, 

TRACÉ DE FONCTIONS, 
ANIMATION 


EXEMPLE 4.1 
PROBLEME : Afficher le nom et le prénom d'une personne 
en les soulignant. 

ENTREE : Le nom et le prénom d'une personne. 

SORTIE : Le nom et le prénom soulignés. 

Sotution 

14 CLS 

é8 INPUT "HUM "5: HS 

GET INPUT "PREHON "5 F$ 

HS IF H$="" OR P$z"" THEN SA 

44 FRIMT 

4 PRINT THACI AH" "5 Fé 

59 PRINT:FRIHT:FRIHT 

as LIHE 16, CSRLIM C0 G4L ENC H$ 1, CERLIN M" 

FA LIMHE CE LZS+LENE NS 1, CSRLIH 2-6 1 1+LEHC NS 5+LEHE FPS 1. CERLT 

M 3 LES Li 

Gé EMC: 

Variables 

Nÿ - nom 

F$ - prénom 

Commentaires 

59 : L'affichage se fait à partir de la colonne 19 de 
l'écran. 

6@ : Le soulignement du nom se fait a partir de la co- 


lonne 1# en respectant la longueur du nom. 
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79 : Le soulignement du prénom se fait à partir de la 
colonne calculée en fonction de la longueur du nom 
et respecte la longueur du prénom. 


PETIT EXERCICE 4.2 


PROBLEME : Afficher une ligne et une colonne d'étoiles 
sur l'écran. 


ENTREE : Un nombre L compris entre 0 et 24, un nombre 
C compris entre 0 et 39. 
SORTIE : Affichage d'une ligne de 40 étoiles sur la 


Lième ligne puis une colonne de 25 étoiles 
sur la Cième colonne. 


EXERCICE 4.3 


PROBLEME : Afficher un histogramme à partir de quinze 


valeurs. 
ENTREE : Quinze valeurs comprises entre 0 et 100. 
SORTIE : Affichage de l'histogramme correspondant. 


Analyse 


Il faut faire correspondre à la valeur 100 une bande 
de hauteur 20, à la valeur 0 une bande de hauteur nulle 
et aux valeurs intermédiaires une bande de hauteur pro- 
portionnelle. 


EXERCICE 4.4 


PROBLEME : Même programme que le précédent (exercice 
4.3), mais pour un nombre de valeurs positives 
pouvant aller jusqu'à vingt-quatre, sans li- 
mitation de grandeur. 


ENTREE : Vingt-quatre valeurs positives. 
SORTIE : Histogramme correspondant. 
Analyse 


A la plus grande valeur entrée, il faut faire corres- 
pondre le nombre maximum d'étoiles sur une colonne (20). 
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EXERCICE 4.5 


PROBLEME : En utilisant la même méthode que celle de 
l'exercice 4.4, faire l'histogramme compara- 
tif de dix valeurs représentant par exemple 
les ventes de deux articles sur dix années. 


ENTREE : Deux fois dix valeurs. 


SORTIE : Histogramme comparatif (utiliser une couleur 
pour chaque série de valeurs). 


Exempie 


deuxième valeur de 


première valeur de 
la première suite. 


la première suite. 


première valeur de _| Le deuxième valeur de 


la seconde suite. la seconde suite. 


Analyse 


I1 faudra, comme précédemment, faire correspondre la 
plus grande valeur entrée au nombre maximum de "pavés" 
sur une colonne : 20. 

Pour enregistrer les valeurs, il est commode d'utili- 
ser deux tableaux de dix éléments ou un tableau à deux 
indices. 


EXERCICE 4.6 


PROBLEME : Dessiner en haute résolution l'histogramme 
des sommes de 600 lancers de n dés (voir 
exercices 1.6 à 1.9). 


ENTREE : Le nombre de dés à jeter à chaque lancer 
(entre 1 et 6). 


SORTIE : Affichage de l'histogramme en graphique haute 
résolution, chaque colonne représentant une 
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des sommes possibles. La hauteur d'une co- 
lonne dépend du nombre de fois où la somme 
correspondante est sortie dans les 600 lan- 
cers 


Analyse 


Pour chaque lancer, la somme des faces sorties est 
calculée et affichée. À la fin de tous les lancers, 
l'histogramme de l'ensemble des sommes obtenues est 
affiché. 


EXERCICE 4.7 


PROBLEME : Réaliser un quadrillage de l'écran graphique 
en haute résolution. 


ENTREE : Largeur de la maille du quadrillage (nombre 
de points entre chaque ligne). 

SORTIE : Quadrillage de l'écran graphique haute réso- 
lution. 

Analyse 


Pour dessiner un quadrillage, il suffit de tracer des 
lignes horizontales et des lignes verticales, séparées 
par la largeur de la maille. 


EXERCICE 4.8 


PROBLEME : Réalisation d'un télécran graphique. 
ENTREE : Les quatre touches de déplacement du curseur. 


SORTIE : Dessin sur l'écran par déplacement d'un petit 
point piloté par les touches de déplacement 
du curseur. 


EXERCICE 4.9 


SORTIE : Tracé de la fonction Y = SIN(X) ainsi que des 
axes des ordonnées et des abscisses avec leurs 
échelles. 

Analyse 


Pour tracer la courbe d'une fonction, il faut d'une 
part préciser la partie de l'écran utilisée et d'autre 
part les valeurs limites de la fonction, que l'on veut 
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associer aux bords de la partie de l'écran choisie. 
Dans notre cas, cette partie sera un rectangle et les 
valeurs limites de la fonction seront -l et +1 pour 
l'ordonnée et 0 et 3*pi pour l'abscisse. 


PETIT EXERCICE 4.10 


SORTIE : Chute d'un objet (par exemple, une flèche) 
déclenchée par la pression d'une touche, du 
haut de l'écran sur une cible horizontale 
constituée de six cases numérotées. Le pro- 
gramme comptabilise le nombre de coups joués 
et le score réalisé. 


EXERCICE 4.11 


SORTIE : Afficher suivant un carré tous les nombres 
de 1 à 81 puis effacer par une croix tous 
les nombres non premiers. 


Analyse 
Un nombre premier est un nombre entier positif qui 


n'admet comme diviseur que 1 et lui-même. 


Si un nombre N est divisible par D, alors N MOD D est 
égal à ÿ. Pour savoir si N est premier, il suffit de 
vérifier qu'il n'a pas de diviseur compris entre 2 et 
sa racine carrée. 
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CHAPITRE V 


JEUX GRAPHIQUES, 

MORPION, PENDU, 

TIRAGE D'UNE SUITE 
DE NOMBRES ALEATOIRES 


EXERCICE 5.1 : Jeu du glouton 


PROBLEME 


ENTREE 


SORTIE 


Analyse 


Option : 


Un glouton se dirige du bord gauche au bord 
droit de l'écran à une vitesse constante. Le 
but du jeu est de faire parvenir le glouton 
sur le bord droit en évitant les obstacles 
répartis aléatoirement sur l'écran. Pour cela 
le joueur peut faire monter ou descendre le 
glouton à l'aide des touches de direction du 
clavier. 


Pendant le jeu, les touches de direction 
(option : un niveau de difficulté). 


L'écran parsemé d'obstacles, le glouton se 
dirigeant du bord gauche au bord droit. Si 
le glouton rencontre un obstacle, le message 
"PERDU" s'affiche. 


le nombre d'obstacles sur l'écran croit en 
fonction du niveau de difficulté. 


EXERCICE 5.2 : Jeu du morpion 


PROBLEME 


ENTREE 


Jeu du morpion pour deux personnes. Sur un 
damier 3 x 3, chaque joueur remplit à son 
tour une des cases par son signe, le premier 
a aligner 3 signes gagne la partie. 


Chaque joueur désigne à son tour la case choi- 
sie à l'aide du crayon optique (l'utilisation 
du crayon optique nécessite une intensité 
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lumineuse soutenue). 


SORTIE : Affichage du damier, vérification de la vali- 
dité des coups et arrêt du jeu dès qu'un 
joueur a gagné. 


Analyse 


11 est commode d'utiliser un tableau à deux indices, 
trois colonnes et trois lignes, pour représenter le 
damier. Il suffira alors, pour inscrire les coups, de 
mettre à 1 ou à 2 la case correspondante au coup pour 
indiquer qu'elle appartient au premier ou au second 
joueur. 


Pour savoir si un des joueurs a gagné, il suffit de 
passer en revue les lignes, colonnes et diagonales pour 
voir si l'une d'elles contient trois nombres identiques. 


EXERCICE 5.3 : Loto 


PROBLEME : Afficher une grille du jeu de loto et simuler 
un tirage dont le résultst s'affiche sur 
cette grille. 


ENTREE : Une touche est attendue au clavier pour dé- 
clencher le tirage. 


SORTIE : La grille du loto avec affichage dans une 
couleur différente des numéros sortis. 


Analyse 


Lors du tirage des nombres, chaque nouveau nombre tiré 
est comparé aux nombres déjà tirés et s'il est égal à 
l'un d'eux, on effectue un nouveau tirage. 


EXERCICE 5.4 : Calcul mental 


PROBLEME : Faire choisir par l'ordinateur deux nombres 
et une opération à faire effectuer en temps 
limité par le joueur. 


ENTREE : La réponse du joueur. 
SORTIE : Un message en cas de bonne réponse et le ré- 
sultat exact en cas d'erreur. 
Analyse 
Utiliser l'instruction INPUTWAIT pour limiter le délai 
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de réponse imparti au joueur. 


EXERCICE 5.5 : Machine à sous 


PROBLEME 


ENTREE : 
SORTIE 


Analyse 


Réaliser un programme simulant à l'écran une 
machine à sous. 


Une touche pour lancer la machine. 


Affichage de la machine et du score de la 
partie. 


La machine à sous est composée essentiellement de 
trois fenêtres dans lesquelles défilent trois symboles 


différents. 


Le joueur marque le maximum de points lors- 


que la machine s'arrête avec l'affichage du symbole 
gagnant dans les trois fenêtres. 


EXERCICE 5. 


PROBLEME : 


ENTREE 


SORTIE 


EXERCICE 5. 


PROBLEME 


ENTREE 


SORTIE 


Analyse 


6 : Jeu du pendu 


Trouver un mot caché en proposant des mots 
de même longueur. 


Une touche pour commencer, le nombre de coups 
choisi et les mots proposés. 


Affichage pendant un temps limité de la liste 
des mots cachés puis de la grille de jeux. 


F : Carnet d'adresses 


Enregistrer sur cassette une liste de noms 
de personnes avec leur adresse et leur numé- 
ro de téléphone, la relire et modifier son 
contenu. 


Les touches correspondant au choix du menu 
et les noms de personnes avec les renseigne- 
ments associés. 


Affichage d'un menu et du contenu du carnet 
d'adresses. 


Les noms avec leurs renseignements sont des chaînes 
de caractères dont la liste est enregistrée sous forme 
de fichier. Le programme se décompose en cinq sous-pro- 
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grammes correspondant à la lecture du fichier, l'affi- 
chage de son contenu, l'insertion de nouveaux noms, la 
suppression de noms anciens et l'enregistrement du fi- 
chier sur cassette. Les sous-programmes sont appelés à 
partir d'un menu. 


EXERCICE 5.8 : Mastermind 


PROBLEME : L'ordinateur choisit une combinaison de cinq 
pions de couleurs différentes que le joueur 
doit découvrir en proposant des combinaisons 
successives. 


ENTREE : Les touches de démarrage, le nombre d'essais 
demandés et les combinaisons proposées. 


SORTIE : Un écran donne les règles du jeu et la réponse 
de l'ordinateur à l'essai proposé indique le 
nombre de pions bien placés et de pions mal 
placés. 


Analyse 


La combinaison à découvrir est créée de façon aléatoire 
sous la forme d'un tableau de cinq lettres représentant 
chacune une couleur. L'essai proposé est constitué d'un 
tableau de même structure. Le problème consiste à compa- 
rer un à un les éléments de ces deux tableaux. 


EXERCICE 5.9 : Jeu de NIMM 


PROBLEME : L'écran affiche les allumettes alignées que 
les joueurs retirent en précisant la ligne 
et le nombre d'allumettes. 


ENTREE : Les coups joués (ligne et nombre) par chacun 
des joueurs. 


SORTIE : Affichage des allumettes et nom du vainqueur. 
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EXERCICE 1.2 
Programme 


CRUE 

SH [HPUT MQUEL EST TON PRENOM": FS$ 

34 IHPUT M"GALIELI FR EST TOH ANNEE DE HAISSANCE":A 

da FRINT 

54 PRINT "EH BIEN BOHINIE "EF 

SA FPETNT "IE WF REFETERAIT À FERSOHHE CIF TI AS AI! 
CUIR MIT" LA de A : MANS" 

FH EH 

Variables 

A - année de naissance 


P$ - prénom 


Commentaires 
49 : Saute une ligne pour faciliter la lecture. 


69 : 1984 - À donne l'âge (remplacer éventuellement 
1984 par l'année actuelle). 


EXERCICE 1.3 


Programme 


Ji CL 

61 IHPLUIT MQUIEL NOMBRE": H 

SM INPUT MQLIEL TAUX CE POURCENTAGE" :E 
4 PRTHT 

SE CHSNHEF 148 

4 PRINT "VARIATION :";: 04 

"A PRINT "YATELIR FINALE : "53H40 
A EH 

Varniabtes 

N - valeur numérique 

P - taux de pourcentage 


DN - pourcentage 


Commentaires 
59 : Calcul de la variation 


79 : Affichage de la valeur numérique finale. 
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EXERCICE 1.4 ; 


Programme 


TE 

EH THFUT GUIEL EST VOTRE FREHOM'S FR 

SM IMPUIT "COMEIEN DEFENSES- VOUS CN ICT OT FHNEMENT FAIT 
F VOTRE HOUFRITURE" D 

dm CHECETES EL, HS 

sa [LS 

E FRINT "HE RIFH "Fr 

°A FEIHNT : FRINT 

eu FRIMTI MAILS DÉPENSES À PFFIT PRES": DA: URRAHTS DE HN] 
FRITURE PAF AH." 

34 LÜOILHATE F1 

TA FRTHT "MOI IE DÉFENSE & CEHTIME 11" 

11H LOCATÉ AZ 

124 EHDC 


Variabtes 
D  - dépense quotidienne 
DA - dépense annuelle 


P$ - prénom 


Commentaires 
49 : Calcul de la dépense annuelle 


119 : Positionnement du curseur à la ligne 23, pour 
éviter l'apparition de OK sous la dernière ligne 
affichée. 


EXERCICE 1.5 


Programme 
14 CLS 
en REM ENTREE OÙ HÔMERE 4 CECURIVRTE 
34 INPUT "GUIEL MOMEFF ENTIER ENTRE @ ET 14644 OI 
LEZ-VOLUS CACHER "5H 
44 IF M-INTCHAE SG OR HG OR HS14AA THEN 34 
FEM DEEUT Ci .IELI 
CLS 
FRIHT 
INPUT MESSAT "iE 
IF EM THEM PRINT "TROP GEAND":GOTO 74 
A IF E£H THEN PRINT "TROP PETIT"':GOTO 74 
‘a as "BRAVO. VOUS AVEZ TROLVE 11% 
A END 


rs es LD NN 
Na © DS Go 
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Variables 
N - nombre à découvrir 


E - essai 


Commentaires 


4@ : Le nombre à découvrir est testé sur les trois 
conditions suivantes 
- Entier 
- Supérieur ou égal à ÿ 
- Inférieur ou égal à ÿ 
S'il est inférieur à ÿ ou supérieur à 1##ÿ un 
autre nombre est demandé. 


79 : Passe une ligne entre chaque essai. 


119 : Si les résultats des deux tests précédents sont 
faux (les deux nombres étant égaux) la ligne 119 
est exécutée. 


EXERCICE 1.7 
Programme 


14 CLS 
24 INPUT "HOMBRE GE DES LANTES C1 À 6 C4 POUR AFF 
ETER ST "HN 

FRINT 

IF MN=f THEH EM 

IF H£1 OF Noa THEH 24 

FR I=<i TO M 

S=S+ INT 6EÆRND 341 
NEAT I 
A PRINT "SOMME = ": 
A PRINT:PRIHT 
a GOTO 24 


pr 
nn 


La 


mem iL JM bi 
Ne So 9 Mimi 


Variables 

I - compteur 

N - nombre de dés à lancer 

S - somme des nombres sortis pour un lancer. 
Commentaires 

49 : Si N= # le programme s'arrête. 

5ÿ : Cette ligne doit se trouver après la ligne 4$ 


de préférence. 
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sinon le programme ne s'arrêterait pas pour N=#. 


Remarque : Pour calculer la somme du lancer de N dés, 

la variable S est initialisée à ÿ en 69, puis, dans la 
boucle 7ÿ-9ÿ, augmentée de la valeur obtenue à chacun 

des N lancers. 


EXERCICE 1.8 


Programme 

14 LS 

pa FENM IHNITIHNL CSATTCH DFE WAFIHEL FES 

SA MEINTE 1 AMETERNE 141 

4 Cerf 

Sd FENM PFELIT CII IE 

A L=lT +1 

vit FFINT: [HPLIT MESSAT UE 

SA [FE FH THEN FAIHT "TATIF AH: CAT SF 
au LE FE: THEN FEIHT MTENR FETIT': GOT SA 


AA PRINT:FRINT ai tr 
118 PRINT PERAVI VOS AYEZ TEUNSE FM Mine DANRE Et 
24 PEINT:FRINT 

154 ER 


Variables 
C - compteur des essais 
N - nombre à découvrir 


E - numéro de l'essai 


Commentaires 


39 : Un nombre entier est choisi au hasard entre ÿ et 


1999. 


69 : Le compteur C est augmenté de 1 (il est "incré- 
menté"). Ne pas oublier de le mettre à ÿ# en début 
de programme (ligne 4@). 


199 : Deux lignes blanches sont passées. Cette ligne, 
et les suivantes, ne seront exécutées que si les 
résultats des deux tests précédents sont faux. 


119 : C contient le nombre d'essais. 


Remarque : Vous constatez que ce programme choisit tou- 
jours le même nombre à découvrir : en effet, l'exécution 
de l'instruction RUN initialise la série des nombres 
aléatoires fournis par l'instruction RND. L'exercice 
1.9 donne une des solutions pour initialiser de manière 
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aléatoire l'instruction RND. 


EXERCICE 1.9 


Programme 
14 CLS 
2 RENM IHITIALISATION CES VARIABLES 


34 LOCATE 14.14.64 

44 PRINT "AFFLYER SUR UNE TOUCHE OUELCOMQUE POUR COM 
MEUCER" 

SA FOR T=4 TO 14444 

ÉA Az [HFE"S 


PA IF A$<>"" THEN 146 

ED HET T 

4 FEI 

14 (LE 

LU HETINTS LAMERPNOIE T4 1 
14 Cz 


154 FENM CEBUT fil IE 

144 Czf4+t 

154 FRINT: INPUT "ESSAT "EF 

164 IF E°H THEN FFIHT "TRUE GANT: GOT 174 

Lo IF FEc<tl THEW FRIHT " TROF PETIT" GTA 154 

LE FETHT:PRTIHT 

Lt FRILHT MERAYO VOIS AVEZ TROLME RH "ici" COURCS 1," 
BA PRTUT:ERIHT 

JA ENT 


Variables 

T - compteur de boucle 

Ag - touche frappée au clavier 
- compteur des essais 


- nombre à découvrir 


- numéro de l'essai 


Commentaires 


59-89 : La sortie de la boucle s'effectue au moment où 
une touche est appuyée et donc la valeur de T 
est fonction du temps de réaction du joueur. 


119 : La valeur de T est utilisée pour initialiser la 
fonction RND. 
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RCICE 2.2 


Programme 


14 


CLS 
FEM ENTREE DES CONHEES 


34 IHPUT "PRIX HT. "if 

4& INPUT MCUCE TVA. CAHIS.SYX RS. 6 CAS MiCTS 
SA RE 

64 FEM RECHERCHE OÙ TAUX DE TT... 
F4 IF CT$="A" THEN T=5.5 :GATO 114 
8@ IF CT$="E" THEN T=18.6 : GOT 118 
96 IF CT$="C" THEN T=23 :GOTO 11A 
tn GOTO 44 

114 FE 

124 PEN CALCIUL ET AFFICHAGE 

154 PFRIHT 

144 PT=P+PFET/-148 

154 PTEIHTIFTEI GG 14@ 

164 FRINT "PRIX T.T.C. “:PT 

17 PRIHT:PRIHT 

184 EHD 

Variables 

P - prix hors-taxe 

PT - prix TTC 

T - taux TVA 

CT$- code du taux TVA 

Commentaires 

49 Les codes à utiliser sont rappelés dans le texte 


de l'instruction INPUT. 


79-9ÿ: Le taux de TVA est affecté à la variable T. 


199 


149 
159 


Si les trois tests précédents donnent un résul- 
tat négatif, cela signifie que le code entré 
n'est pas valable et un autre code est alors 
demandé. 


Calcul du prix TTC. 


Arrondi à deux décimales : le chiffre est multi- 
plié par 1#ÿ, ainsi les deux décimales que l'on 
désire conserver se trouvent à gauche du point 
décimal (ex : 6.6734 x 100 donne 667.34). Ensuite 
la valeur entière du nombre est prise, suppri- 
mant les décimales que l'on ne veut pas conser- 
ver (ex : INT (667.34) donne 667). Puis pour 
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retrouver la valeur initiale le chiffre est di- 
visé par 19#ÿ (ex : 667/199 donne 6.67, c'est-à- 
dire 6.6734 arrondi à deux décimales). 


Remarque : La valeur est arrondie par défaut avec une 
erreur comprise entre @ et 1 sur la dernière décimale. 
Pour obtenir un arrondi correspondant à la valeur en- 
tière la plus proche, il suffit d'écrire 

150 PT-INT(PT*199+.5)/19@ 
Lorsque l'arrondi n'est nécessaire qu'à l'affichage, il 
est plus simple d'utiliser l'instruction PRINT USING 
{voir exercice 2.3) 


EXERCICE 2.3 


Programme 


14 CLS 

A DIM F1: 

34 REM 

44 REM EHTREE DES CONHES 
54 FOR Izi TO 14 

64 PRINT °FRIX "il: 


Fa T' “ 
6 HEBTTre l 
3@ FRINT 

14 INPUT MCOICE DIT TALÉE CE TU, CAS SS Bi éx C:% 
un MCTS 

it REN 

FE RECHERCHE D TAUX DE T.%.A 

IF CT$S="A" THEN T25.5 :GOTO 184 

IF CT$="E" THEN Tais.é : GT 184 

IF CT$="T" THEN Ta 2: CGUTO 164 

GT 36 

F'EM 

FEM CALELL 

FOR I=ji Ti 14 

Pi T's PCT APE TETE 

A MEET T 

"A FENM 

FE AFFICHAGE AUET AL [GNEMENT 

1 FRIHT 

A FÜR Tai T[ 14 

PEIUT "PRIX "iT: TRE 140 

FRINT LISIHES "HHHHHK, HR: PET 

HEËT TI 

EH 


ta Di 


Dion BB À 
DO Sos 
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Variables 
I - compteur de boucle 
T - taux TVA 


CT$ - code du taux TVA 
P(10) - tableau des prix 


Commentaires 
29 : Dimensionnement du tableau 
59-89 : Boucle d'entrée des prix. Les dix prix sont 


demandés un par un, le numéro du prix à entrer 
est affiché à la ligne 69 (voir exemple 2.1). 


199-219 : Boucle de calcul des prix TTC. Les prix TTC 
remplacent les prix hors-taxe dans le tableau. 


259-289 : Boucle d'affichage. 


279 : L'instruction PRINT USING permet l'alignement 
sur le point décimal et l'arrondi (il est ici 
prévu pour des nombres inférieurs à un million). 


EXERCICE 2.4 


Programme 
1ère méthode 


CL: 

CIM Le 

FERALC M 

FAR Iz1 TO H 

FER: LE T0 

MEZAT I 

FOR Tel TO HM:PRINT L $SCT SC HET 1 
4 PRTUT:FETIHT 

A EC 
sf 
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MN LiSrlur 
CR OS Geo 


Lac 
A 


A DHIA 
A CATH TOUS. TABLE SAT URE. APERE.MATSON CHATSE, NLSEAN 
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2ème méthode 


14 CLS 

EU DIN Lt ri 

SA FOR Izt TO 74 

df FEAL L$& TI: 

SE IF LSITS'FIM THEM HFAT TI 

EM H=T-1 

FA FOR Is1l TO HIFRINT LT HET IT 
SA PRINT : FEITIT 

TAF TABLE MOUTURE AFREF MATESOH. CHATSF OISEAU 
ETH 


EH QT Loc 

FH OH ERROR GOT 1440 
34 FOR Is1 TO ju 

4 FEAT Lt 

ME T L 


A FOR [=1 TO H-PRIHT LT: NEX 
64 PRINT.FFIHT ne 
ce 
2 PATE oi Fe TABLE, MOITURE. ARBRE HATSONH. CHAISE. OT SEAL 


114 PESIME FA 


Variables 

I - compteur 

N - nombre de mots contenus dans L$(29) 
L#(29) - tableau des mots 


Commentaires 


Remarque : Les trois méthodes donnent des résultats 
similaires. 


- Pour que la première méthode soit possible, il faut 
connaître le nombre d'éléments à lire (ici, celui-ci 
est lu par l'instruction READ N à laquelle correspond 
l'instruction DATA 7 en ligne 5#9@). 


- Pour pouvoir utiliser la deuxiême méthode il faut 
qu'une des données indique la fin de la lecture (ligne 
1999 DATA FIN). La ligne 6# de la deuxième méthode a 
été rajoutée pour qu'à la fin de l'exécution du pro- 
gramme la variable N contienne le nombre de mots dans 


L#. 
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La troisième méthode ne nécessite ni de connaître le 
nombre d'éléments de la liste des données ni de réser- 
ver un mot pour en indiquer la fin. C'est l'erreur pro- 
voquée par le défaut de données à lire par l'instruction 
READ qui est utilisée pour sortir de la boucle de lec- 
ture. Cette méthode est à utiliser avec précaution et 
uniquement comme raccourci pour le test d'un programme 
par exemple. 


EXERCICE 2.5 


Programme 


14 CLS 

en CIN H$:245.FP# 204: 

3 FENM 

43 FENM LECTURE DFS COMHERS 
SA REA H 

64 FOR Izi TO H 

F4 FEADC HÉCI FEI 

Sg MEXT T 

an FEM 

1H INPUT "HONM À CHERCHER ": HS 
114 INPUT "PRENOM "FS 

12 FRIHT 

128 REM 

149 REM RECHERCHE 


FER LE LRU Fr. 
IF _NS=HSC TS AMC Fh=P$C I: THEN PRINT F$i" "Hg" 
DAS LE FICHIER.":GOTO 194 


PRINT F$:" ";:H$i" H'EST PAS CAHS LE FICHIER." 
PRIMT:PRIMT 

EH: 

C'ATA 

CATA MARTIMH:ALRERT, FERRIH, ADELRIDE . EAROM, IEAM 
CATA GLIRAND, GEORGES. MARTEAL, JACQUES 


Variables 


La Rx] 


No ee Ur M AO C0 TN 


tin lies pre ins 
DDR Qu 


1 - compteur 

N - nombre de personnes 

N$ - nom à chercher 

P$ - prénom à chercher 
N#$(29) - tableau des noms 
P$(2@) - tableau des prénoms 
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Commentaires 


69-89 : Lecture des noms et prénoms avec la première 
méthode de l'exercice 2.4. 


169 : Si les nom et prénom sont ceux de la personne 
cherchée, le programme affiche un message puis 
s'arrête. Sinon, la personne suivante dans la 
liste est testée. 


189 : Si toutes les personnes ont été testées et 
qu'aucune n'est celle demandée, le programme 
l'affiche. 


Remarque : N$ et N#(n) sont deux variables distinctes, 
la première est la variable alphanumérique N$, la 
seconde est le nième élément du tableau alphanumérique 


N#. 


EXERCICE 2.6 


Programme 


£2 KE 

3 Eli: LELTuRE QU NOMBRE LÉ FFiSDOIHHES 

4 FEFADC 

5 FE 

CE Pet ENTREE DL HOM ET Cit HUMERI 

"EH INPUT MON OI NLMERU 4 FECHERCHER CTAPEÉZ  FTH FINI 
FR HPRETER 2 ";:KkS$ 

IF K$="FIH" THEH END 
F=LEHE RS à 

FEM 

FEM RECHERCHE 

F=ÿ 

FOR I=i TO NH 

REA Li$.De$, Li 

166 IF RSeMIDS&ED1$, 1.R2 OR R$=nmIlLige C5$, 1,3 THEWM Fal 
:FRIHT Di#," "De, "....":03$ 
1EH HET T 

174 IF F=f THEN PRINT KR&:" N'EXISTE FAS CAHS LA LISTE 


FT. 
Ti 


Mi mre me 
Lite Gi 
QU 


a 
Len 


FEN 

FESTORE : FRINT 

GOTO 54 

CATA & 

CATA MARTIN. ALEERT.275 95 95, FLRRIH.ACELHILDE.Rr Fr 


QU @'0 
LRO 


Miro 
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SG China Club AN GEURGES 25 mi ré MARTEL IAUSIRS 0 
re ET 
BE CATA DIARTIHSJENH, Ge 2 Sd POURE RICE LS OL id 75 
5 kid 


Variables 

I - compteur 

N - nombre de personnes dans le fichier 

R - nombre de caractères dans R$ÿ 

F - drapeau (flag) : # si la personne cherchée n'est 


pas dans le fichier 


R$ - nom ou numéro à rechercher 
D1# - nom de la Ième personne de la liste 
D2$ - prénom de la Ilème personne 
D3$ - numéro de la Ième personne 


Commentaires 


89 : Le programme bouclant en 2#@ (GOTO 3%) est interrompu 
lorsque la réponse FIN est donnée à la ligne 7. 


159 : Si le nom ou le numéro de téléphone correspondent, 
alors la personne est affichée et le drapeau est 
levé (F-=1). La recherche continue néanmoins car 
plusieurs personnes peuvent avoir le même nom, ou 
le même numéro de téléphone. 


179 : Si F contient #ÿ, cela indique qu'aucune personne 
du fichier n'est celle demandée. 


199 : L'instruction RESTORE permet de relire les données 
en DATA à partir du début (y compris le nombre de 
personnes). 


Remarque : La comparaison s'effectue entre la chaîne 
entrée (R$#) et les R premiers caractères du nom ou du 
numéro. Ainsi, il est possible de faire afficher la 
liste des personnes dont le nom commence par "M" en ta- 
pant cette lettre seule lors de la demande du nom ou du 
numéro (ligne 7#). 
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EXERCICE 2.7 


Programme 


1 CIM Dé 144 

en LE 

34 INPUT "ENTRER COMRIEN DE HOMBRES DE 1 À 1@G5 "5H 
4 FEIHT 

29 IF HET OF H516G THEM 34 
£a REM 

FA REM ENTREE CES COHHEES 

8g FOR I=1 TÜ M 

96 FRIHT CMOMERFE "1: 

LA IHPUT DCI: 

114 HEXT I 

1:46 KEM 

154 FEM RECHERCHE DL MINH-NR* 
144 MI=D6 1: MA=DE 1 5 

158 FOR I=1 TO OH 


LE CIF MI:C Li THEN Miel 10 
LE UIF MAS IN THEN MA=DCT 
184 MEXT T 
19n REN 
PAG RENM AFFICHAGE 
214 FRINT:FEIHT 

1 FRIHT "MAT MUNM ": MA 

5 PRIMT "MIHITLIN "il 

4 FFIHT 

EH 

Variables 
I - compteur 
N - nombre d'éléments du tableau D(1#8@) 


MI - plus petit nombre 
MA - plus grand nombre 
D(1#f@) - tableau des nombres 


Commentaires 


159-189 : Tous les éléments du tableau sont comparés a 
MI et MA. Si l'élément est plus grand que MA 
alors il est mis dans MA. S'il est plus petit 
que MI, il est mis dans MI. 


Remarque : Il serait possible d'écrire 


159 FOR I=2 TO N 
car il est inutile de comparer le premier élément du 
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tableau à MI et MA qui le contiennent déjà. Néanmoins, 
cette solution provoquerait une erreur pour le cas où 
le tableau ne contiendrait qu'un élément (N=1). 


EXERCICE 2.8 


Programme 


1 CIM H$c 1,20 
4 CLS 
34 INPUT "COMEIEN DE FERSONNES CDE 1 À 265 ":h 

46 IF Het DE HoZ4 THEM 34 

54 PRINT 

6G FEN 

"9 REM ENTREE DES DOMNFES 

8% FOR I=1 TO H 

34 PRINT "PERSONNE "iTitcn 

166 LHPUT "HOMME, D 

148 IHPUT "PRENOM "He I 

120 FRIHT 

12 MEXT I 

146 FEM 

15G FEM RECHERCHE 

165 Het 

176 FOR I=1 TO NH 

168 IF Hé. INSEE AM) AND HSC1.12cMSC1.M3 THEN M=T 
196 IF HG, La HS DM) THEH Mal 

BAG MEXT 1 

214 PEN 

224 FEU AFFICHAGE 

224 PRINT 

249 PRINT "LA FPREMIFRE PERSONNE PAR ORDRE AL 
PHABETIGUE EST" 

254 PRINT "CELLE D'THBICE "ati  "iMée tom" "HSE 
115 

BCE PRINT 

27A EM 


Variabtes 
I - compteur 
N - nombre de personnes 


M - indice de la première personne dans l'ordre alpha- 
bétique 
N#(1,29) - tableau des noms et prénoms (N#(@,x) - noms 
N#(l,x) - prénoms 
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Commentaires 
99 : Le numéro de la personne à entrer est affiché. 


189 : Si les noms sont identiques, l'ordre des prénoms 
est alors pris en compte. 


Remarque : Un tableau à deux indices est utilisé. Le 
premier indice indique s'il s'agit d'un nom (@) ou d'un 
prénom (1). Le deuxième indice indique le rang dans la 
liste. 


ÿ Î 
CETTE 


D OO 5 © © — 


NS(1.2#) 


Il est possible de reyrouper les tests des lignes 189 
et 199 en un seul : 189 IF N#(@,I)< Ng#(9@,M) OR < N$ 
(9,1) = N#(9,M) AND N8(1,1) = N#(1,M) > THEN M=I 


EXERCICE 2.9 


Programme 
lène méthode 


14 CIN TAC SG. TES SG 5 

ZA FENM FHTREE DES CMMHEES 

ah REAG Hi! 

an FOR Izi TO NI REANTAC TO OH OT 

mi REM 

EN FE CLAZSEMENHT 

FE HE cn 
nn FEN RECHERCHE GE L'RCENMENT LE EUR CRT D RFETITE 
“ TAELEAL 

A HES=HE4 1 

146 M=T 

114 FOR Izt TO Hi 

| IF TAC THE TALE SO THEN Mal 

VE HET 
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14 FEM 

154 RENM AJOLT DANS LE SECOND THELEAU 

164 TEC NZ :=TAC M 

178 TACM'I=-1 

180 IF HESHI THEH A 

134 REM 

£nA REM AFFICHAGE 

EG FOR Jai TO HE: PRINT TROT: HRËT T 
A FRIHT 

ES EMHC 


FRTE Late tone 15.22.0018. 12,26. 26 


2ème méthode 


14 Citt TH SG, TB SH 
ci FENM ENTFEE DES COMMEES 
39 REAC Hi 
gi FOR ei TO NL:KREAD TAC LME AT 
“4 FEM 
SA FEN CLASSEMENT 
ra HE2f 
SA RENM RECHEFLHE GE L''ELEMENU LE FLUS GÉHHD Mi RER E 
F TABLEAL 
A MESME+1 
LA Hz 
LL FOR Let T0 Ni 
LEA CF TACI CTACIT TO THEH HaT 
1 HET T 
1 FEM 
A RENM ECHANGE CES ÉLEHERTS 
TE HE TE M 
IF MÉHI THEM FÜR TaM4t TO HI TA Tel TA Ti MEUT 1 
4 HizHi-t 
SN TE HI THEH ii 
A [EN 
A MEME F LENAGE 
GA FOR Let NU HS FRTHT TAC T CHEXT 
4 FELHT 
A Er 
A DATA 1 
Lt DATA ST, DE D SE TS LE Ur, © 


Variables 
I - compteur 
N1 - nombre d'éléments du premier tableau 


N2 - nombre d'éléments du second tableau 
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M - indice de l'élément le plus grand du premier ta- 
bleau 


TA(59) - premier tableau : nombres à classer 


TB(5@) - second tableau : nombres classés. 


Commentaires 


39-49 : Lecture des données (première méthode de 
l'exercice 2.4). 


119-139 : Recherche de l'élément le plus grand du pre- 
mier tableau (voir l'exercice 2.7). 


Remarque : Le nombre en DATA de la ligne 59ÿ@ indique le 
nombre d'éléments à lire alors que ceux de la ligne 51 
sont les éléments à classer. 


EXERCICE 2.10 


Programme 


LE CIM HS: 1.240 

24 FE 

Sû RENM ENTREE LES DOHHEES 
4 CL 

GA INPUT CCOMBIEN CE PERSONNES CLEO À A Zi M 
AG IF HET IR HP THEN 36 
Fa FE Izi TO MH 

Sn FRIHNT "FERSOMNHE "iii" 
a IHPUT "HOM "HS A, I 

LA INPUT "FÉEHON "He 1. 
11H FRINHT:HEXTI 


156 FEH CLASSEMENT 
id F=i 
LE M=F 
164 FOR I=F TD M 
18 IF Hé, Irc, Ha DR MSC, Thé Gi AND Hg: 1 I 
EN$C1.Mii THEH MAT 
MEËT T 
SA FENM 
. HÉ=H$C A Fi: FH L Fi 
LA Hé GG, FosHéé 4, nn: M$, FosH$r 1. Mi 
Hé à, 1121=H$ : M$ 1.MHi=PFS$ 
LA PsP+i:IF FH THEH 156 
a FENM 
a REM AFFICHAGE 
FOR I=1 TO H:PEINT N$&cfA, Tu H$È lt, TA: HEXT 1 
ENG 
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Variables 

I - compteur 

N - nombre de personnes 

P - indice à partir duquel les personnes doivent être 
classées 

M - indice de la première personne par ordre alphabé- 


tique 


N$,P$ - variables 


N#(1,2#) - tableau des noms et prénoms (N#(@,x) - noms, 
N#(1,x) - prénoms). 
Commentaires 


159-189 : Recherche de la première personne par ordre 


alphabétique parmi celle d'indice supérieur ou 
égal à P. 


299-22@ : Permutation de la Pième personne avec la 


Mième. 


Remarque : Pour permuter deux variables, par exemple N1 
et N2, il faut utiliser une troisième Variable, par 
exemple À, et exécuter les opérations suivantes 


A = N1l ; recopier N1l dans A 
Ni = N2 ; recopier N2 dans N1l 
N2 = À ; recopier À dans N2 


EXERCICE 2.11 


Programme 


HA DIN H$c1.2ti 


1 
24 REM 


54 FEM ENTREE CE LA LISTE GE PERSINHES 

4 FEAD H 

SA FOR Ist TO H:READ HT MSC TL. IS:MEËT I 
é KEM 

FA RENM ENTREE LE LA FERSONHE À AJOUTER 


En C 


LS 


34 INPUT "NOM À AJOUTER CTAPER FIN FOUR ARRETER 5" :NS$ 


IF HS="FIN" OR N=26 THE EHD 
INPUT "PREMOM "FPS 

REM 

REM RECHERCHE 


à FOR Iz1 TO N 


D RE OF H=H$E Q, Jr AND P&SN&c 1,133 THEN 
cel 
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HEAT I 

1 REF 

1 FENM AJOUT À LA FIH Cl TABLFAL 

A Née. H+1 ENS: MSc 1. H+1 1=PS 

# GOTO EF 

G FEM 

A FEM CECALAGE ET HIQLT 

FOR JEH TO I STEF -1 

Hg, +1 eg. do: Hit. I Hg, l 

HET 

Or HSE, J'izHé: H$i 1. I 1=FS 

H=t+1 

RE 

REN AFFICHAGE 

CL 

FOR Izi TO H:PRINT HG, Ii, Hgc1.T::HEXT 1 
FRIHT:FRIHT:GOTO 34 

HA DATA 

A DATA ALALC. JEAN. CLURAND. CECRGES. MRRTEAL.IHCGQUIES 
OATA FERRIH, ADELHIDE. FERRIH. FALL 


ii 
Ur it 


tm int 


time ts 
Li £ 


Variables 

I1,J - compteurs 

N - nombre de personnes 

N$,P$ - nom et prénom de la personne à insérer 

N#$(1,29) - tableau des noms et prénoms (N#(#,x) - noms, 
N#(1,x) - prénoms). 

Commentaires 


99 et 199 : L'utilisateur peut insérer plusieurs per- 
sonnes (le programme boucle en 32#) et doit 
taper FIN pour arrêter. 


199 : Si le tableau contient 2# personnes, il est 
impossible d'en insérer une autre. 


149-169 : Si la position d'insertion dans le tableau 
n'est pas la dernière, alors le programme 
continuera en 22# et I contiendra cette 
position. Si c'est la dernière alors la 
boucle se termine et le programme continuera 
en 179. 


279 : Ne pas oublier d'incrémenter N (le tableau 
contient une personne de plus). 
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EXERCICE 2.12 


Programme 
A DEN H@e TE, Mg LA 1 Ce 24 
LE CEN LECTURE DES FHRASE" 


34 FEAC H 

4 FOR Izi To H-REAL HS Tr gr [role Ce HEET 

GA PEN AFFICHAGE DES PHRRSES 

En CLE 

“a FF Izt TO 14 

20 FRIHT He HERHD+. 50" Se MERE, 5 1 MO CE HÉ£RNTIe, 


Si 


af MEXT T 

1Gù PRIHT:FRIHT 

tiñ FEM ATTENTE FOUR LA SUITE 

LES FRIHT "TAFER SUR “EUTREE* FOUR  CAMTTHUERS SI 
FR À FOR ARRETER." 

15E ASSINEE"S:1F H$="" THEH 154 

14 IF A8: "HA" THEH SA 

154 Et: 

SH CATA € 

Si CATA L'OPLINATELUR, EST. UNE MACHIHE 

52€ DATA L'HOMHE.EFST.LUNH ÊTRE YTSANT 

534 DATA LE CHIEHCORT SURCLE LIT 

Sd CATA LE MUISER ONSRE LE SÛTE 

SG CAtA LE TRAIHOROULE SUR SLA MITÉ RERRFE 
6 CATA LA FUSEE,S'EST EHNOILEE VERS LH LUME 


Variables 

I - compteur 

N - nombre d'éléments dans N$#$(2@), V#(29) et C$(2#) 
AS - touche frappée au clavier 

N#(29) - noms 

V$(2#) - verbes 

C$(29) - compléments 


Commentaires 


49 et 519-56# : Les différents éléments des phrases sont 
séparés par une virgule, pour permettre 
la lecture de chacun d'entre eux. 


89 : Affichage d'une phrase. Chacun des élé- 
ments la constituant est choisi au ha- 
sard. 
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13#-14@ : Le programme continuera à afficher des phrases 
jusqu'à ce que l'utilisateur tape "A". 


Remarque : Pour permettre la lecture des phrases, cel- 


les-ci sont affichées par groupe de 14, une pression de 
touche étant attendue au clavier entre chaque affichage. 


PETIT EXERCICE 3.1 


Programme 

if CLS 

24 IHPUT "TAPEZ UNE LIGHE ":A$ 

34 I=i 

46 IF MIDS AS. I.11=" " THEH AS=LEFTS AS. 1-1 1+MIOSC HS, 


1+12:GATO0 4 

CA Isl+l:IF LE<LENC AS) THEH dû 
6 FRINT "it: 4$; "an 

TA EH 


Variables 
I - compteur 
A$ - ligne à traiter 


Commentaires 


Tous les caractères de la chaîne sont comparés un par 
un à l'espace (ligne 4#). Si le Ième caractère est un 
espace il est supprimé de la chaîne, le programme re- 
vient alors en 49 car le Ilème caractère a changé. Sinon 
I est incrémenté. Le processus recommence jusqu'à ce que 
I soit supérieur à la longueur de la chaîne. 


49 : Pour supprimer le Ième caractère de A$, il suffit 
de mettre dans A$ tous les caractères précédant 
le Ième (LEFTS#(A$,1-1) ), ainsi que ceux qui le 
suivent (MIDS#(AS$,I+1) ). 


Remarque : Il est déconseillé d'utiliser la boucle FOR- 
NEXT. 


39 FOR I=1 TO LEN (A$) 

49........ 

59 NEXT I 
car LEN (AS$) est évalué comme la longueur initiale de la 
chaîne. 
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PETIT EXERCICE 3.2 
Programme 


CLS 

IHPUT "TAPEZ LNH MOT ":A$ 

IF LEHCAS\Z THEH F4 

FOR I=LEHSAS2o-1 TO 1 STEF 1 
ARS=LEFT SE AS, 14" "+MICDSe HS, I+1 
HET I 

FRIHT 4$ 

FEIHT:PRIHT 

EHC: 


DORE LT 


1 On ei Du UN à Gi him 
is US 


Variables 
I - compteur 


A$ - mot à traiter 


Commentaires 


39 : Il est impossible d'insérer des espaces si la lon- 
gueur du mot est 1 ou #. 


49 : LEN(AS) est évalué comme la longueur initiale de 


A8. 


Remarque : Les espaces sont ajoutés à partir de la fin 
du mot. Pour commencer par le début il faudrait écrire 


59 FOR I=1 TO LEN(AS)*2-2 STEP 2 
69....... 
79 NEXT I 


PETIT EXERCICE 3.3 
Programme 


1 COLE 

ED LIHE IHEUT CTAFEZ LE IEËTE " F$ 
34 FEIHT 

44 FFIHT 

54 FRIHT F$ 

64 Ph=MTCSE FS, EE à 

vA IF LEHCFS:24 THEN Si 

8h EH 
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Variables 


P$ - texte à traiter 


Commentaires 


69 : MID$ (P$,2) donne tous les caractères de P$ sauf le 
premier. 


79 : S'il reste des caractères dans P$, alors le pro- 
gramme boucle en 5#. 


EXERCICE 3.4 

Programme 

14 CLS 

24 LINE INPUT "TAPEZ LINE LIGHE :"ilLS 
SA FRINT LS 

4@ IF LEHLHSYSE THEH 9% 
SA FOR I=zi T0 LEHCLS 2 
68 Lé=niDgclL+,z,LEMELS 
F6 FRINT TAËT ::LS 

ga HEXT I 

34 EHDC 


Variables 


1 - compteur 


L$ - ligne à traiter 


Commentaires 


69 : Le premier et le dernier caractères ae L$ lui sont 
enlevés 


79 : L'affichage à la position I permet de réaliser la 
tabulation demandée. 


EXERCICE 3.5 


Programme 


16 CLS 

24 LIHE IHEUT OUTAFFE DA FHFASE CU FS 

SA RENM 

4 FEM CEBUT CE LA EUUULE 

SA FRIHT F% 

Si FÜR (ei Ti LEH EF) 

COOIF Wild FT, io" "THEN P=HITie PF, T+l LT GE 
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34 HEXT I 
96 PRINT 
14g EHC 


Variables 
I - compteur 


P# - phrase à traiter 


Commentaires 


79 : Si le Ième caractère est un espace, alors tous les 
caractères le précédant et lui-même sont supprimés 
de P$. 


EXERCICE 3.7 


Programme 
lère méthode 


14 CLS 

Se ne a Sn en de na som 
EG INPUT OLIGHE CHAK:EA CARACIERES "LS 

34 [F LEMHILH::34 THEN 4 

di RET 

54 REM CREATION DE LH LIGNE LE 4ù CARALTERE = 
54 LHELS+RTESNT SE HS. dit LENS Léa 

Fa CLS 

34 REM CEFILEMENT 

SA LOCATE @.14.4 

SE PRINT LS 

14 LÉ=RIGHTEE LS, 54 EF TEL 1: 

ef FÜR [el TO AH:HEËXT I 

154 GOT SA 


Variables 
I - compteur 
L$ - ligne à faire défiler 


A$ - ligne de points 


Commentaires 


6# : La ligne est complétée par des points pour obte- 
nir 49 caractères au total. 


199 : Affichage de L$ sur la lf#ème ligne de l'écran 
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11# : Le premier caractère de la ligne est placé en der- 
nière position. 


129 : boucle d'attente. 


Programme 
2ème méthode 


LE LL S 

A THEUT CTESTE CMHE 43 CHÉACIERES 2" 01 $ 
Si Li LEMHLS::SS THEH 24 

Hi LL Se" " 

a REM CEFILEMENT 

A FÜR led TO 1 STEF 1 

F4 LACATE &, 16,64 

GE PRINT MID LS. 41-71 2: 1HEe Ti LER TE LS. dé] à 
BÙ FÜR let TO EM + MEXT I 

LAC HEXT i 

If GÜTG 


Variables 
I1,J - compteurs 
L$ - ligne à faire défiler 


Commentaires 


4ÿ : Le texte est complété d'un espace pour effacer le 
dernier caractère de la dernière ligne affichée. 


89 : Affichage à partir de la première colonne de l'é- 
cran de la partie de la ligne qui dépasserait à 
droite, puis à la colonne I, du début de la ligne 
jusqu'à la dernière colonne. 


99 : Boucle d'attente. 


EXERCICE 3.8 


Programme 


1 CLS 
#4 FRINT:FRIHT "TAFER LME PHRASE À LA FORME HEGATIVE 


Sa LINE IHPUT 4% 

4 REM 

54 RENM DEELT DE LA FOUCLE 

684 FÜR ISLENCAS: TO 1 STEP -1 

ra . MIDSA$, 1,452" NE " THEH AS=LEFTSC AS, I 2+MIDg 4% 
4 I+4i 
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SG IF MIDS Ag. 1,Zue" NM" THEH AS<LEFT& HS, I 'eMILS À$. 


I+:: 


34 IF MID HS, 1,55" PAS "THEN AS=LEFTS: AS. TI 1+M10$r A 


$. [+50 


1Hé HEAT I 
Li IF FIGHTSEAS, dis" PAS" THEN H$SLEFTéi A$,LEHE HS 1-4 


3 


156 IF LEFTSOAS, 352UHE "THEN Hz Dbe Hg, à 

LS [F LEFTS 4$.Z'="N'" THEN A$=MIDSE A, 50 

144 FÉIHT 

154 PRIHT "LA FHRASE À LA FORME AFFIRMATIYE EST :" 
let FRIHT 4$ 

174 FRIHT 

18@ EHG 

Variables 

I - compteur 


A$ - variable 


Commentaires 


6p-199 


119 


129-139 


Remarque : 


L'un des mots NE, N' ou PAS est comparé à la 
partie de A$ de la même longueur : si une 
correspondance est trouvée, alors le mot est 
retiré. 

Test du cas où PAS se trouverait en fin de 
phrase. 


Test du cas où NE ou N' se trouvent en début 
de phrase. 


LEFTS(A$,I) donne les premiers caractères de 
A$ jusqu'au Ième inclus, ce qui dans le pro- 
gramme permet de laisser un espace entre les 
deux mots entourant celui à éliminer. 


EXERCICE 3.9 


Progr amme 


ig CLS 


29 INPUT "CHAINE DE CARACTERES ":C$ 


38 PRINT 


44 INPUT "CARACTERES À INSERER ";15$ 
59 INPUT "POSITION D'INSERTIOH ":P 
60 IF F9 OR P>LENCC$)5+1 THEN 59 
F9 CSsLEFTSCCS, P-13+18+MID8C CS, P 2 


EXERCICES POUR T07 


1 & PRINT 
24 ENC 


Variables 
P - position d'insertion 
C$ - chaîne de caractères initiale 


I1$ - chaîne à insérer 


Commentaires 
69 : Teste la validité de la position d'insertion 


79 : Insertion 


EXERCICE 3.10 
Programme 


LE CLS :CLEAE Säl 
£d FEN 
59 REM EHTREES 
43 FRIHT:FRIHNT "TAPER LE TEXTE MAX: 128 CARAUTERES : " 
Sa FRINT:LIMNE INPUT LS 
IF Lé="" ÜR LEHILSo:I2é THEH 4H 
FRIHT 
LINE INPUT "MOT À REMPLACER : ":k% 
LINE INFUT "MOT À METTRE À 2H FLACE : "ing 
IF LEHCRS::128 OR LENCNMi:125 THEH 64 
KEM 
FEM DEBLUT LE LA RECHERCHE 
I=1:F=0:RE=LENCRS 1: MELENC MS à 
REM 
REM DEELIT DE LA BOUCLE DE RECHERCHE 
IF MID LS. [,R:<>RS THEN 264 
Fai 
FRIHT:IF LEHELSDI-F+MS12A THEN PRINT "REMPLACEMEHT 
TMPOSSLELE " : GOTO 518 
136 REr 
£@u KREM DOIT-OH REMPLACER 
£16 FRINT:PRINT LEFTSCLS, Id" ÆHEEUIRSSUARXEX MIDI 
6. I+K: 
226 FPRINT:FRIHT "VYOILEZ-VOUS REMPLACER CELLUI-LAC OH 
US 


234 A$=INPUTS 1:17 ASC2°N" AND 4$<>"0" THEN 23h 


ES ja Met Mb jet pet a de dt UT INT =) 


DNA LDtIe SR Du 


LOS GO © Gi GG © 
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225 FRIHT À% 

4m IF A$="H" THEN ZéE | 

Cù LÉ:LEFTSLS, [1 plpeti SC LS, [4h [= T+n 

1 isl+l:{F IiasLENCLS +1 THEH 15H 

RET 

REF HFFICHAGE Cl RESUL FAT 

FEUHT eu 

IF Fa THEN FRIHTOUE MIT M'EST FHS De LA I iatit 


FELHT:FRTIHE I S$ 


EC: 
Variables 
I - compteur 
F - flag (drapeau) : Ÿÿ si le mot à remplacer n'est pas 


dans la ligne 
- longueur de R$ 
- longueur de M$ 
A$ - touche frappée au clavier 
L$ - texte 
R$ - mot à remplacer 


s 


M$ - mot à substituer 


Commentaires 


69 : Si la ligne ne contient aucun mot le traitement de 
la ligne est impossible. 


139 : Initialisation du compteur, du drapeau et des lon- 
gueurs des mots. 


16# : Le mot à remplacer se trouve-t-il à la position I ? 
Si non, le compteur est incrémenté à la ligne 268. 


179 : Si oui, le drapeau est levé indiquant que le mot 
existe dans la phrase (F est mis à 1). 


219 : Affichage de la ligne avec le mot à remplacer 
encadré d'étoiles. 


399 : Si F est égal à ÿ, cela indique que le mot à rem- 
placer n'a pas été trouvé (la ligne 179 n'a pas 
été exécutée). 
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EXERCICE 3.11 


Programme 


14 CIM Ec4@ 

24 REM 

où ESPF$=" 

3 REM ENTREE DE LA LIGMHE 

4f CLS 

SA PRINT TAPEZ LA LIGNE CHMAX:4@ CHAR, :" 

4 LIME IHPUT F$ 

Da IF LEFT#F$.11=" "THEN PS=MIDSC FPS, 25: GÛTO 65 

FE IF LEHFS$::d44 THEH 56 

à KREN 

94 RENM RECHERCHE DES ESFACES 

1 Hz 

145 FLG=A 

li I=1 

12 IF MID#P# 1,122" " THEH FLG=G ELSEIF FLG=G THEH 
roue ELSE FÉ<LEFTSE PS, 1-1 +MID$E PS, I+1 
.Jel=l 

175 Isl+i 

134 FF Tél EHCFS&: THEH 124 

148 1F Heÿg THEM FRINT "PAS ASSEZ DE MOTS. ":GOTO 484 
154 RENM JUSTIFICATION 

164 E<dli-LEMI FPS 

IF FÜR 1eW TO 1 STEF -1 

LA FH=LEFTSC PS. ECT nel EFTSE FSPS. FBI +MI0SC PS. EL TI +15 
194 B=F-EHET 

SE HET I 

214 REM 

en REM AFETCHAGE 

A FRIHT:FRINT F$ 

EHC 


Si 


Vaniables 
I - compteur 


N - nombre d'espaces dans P$# (nombre d'éléments de 
E (49) ) 


B - nombre d'espaces à ajouter à P$ pour faire la jus- 
tification 


P# - ligne à justifier 
E(4@) - tableau des positions des espaces contenus ini- 
tialement dans P$. 
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Com 
65 


99- 


149 


169 


179 


EXERCICES POUR TO? 


mentaires 
Suppression des espaces éventuels en début de 
ligne. 

139 : Les positions des espaces de P$ sont mises, par 
ordre croissant, dans E(4@) et les espaces 
comprenant plusieurs blancs sont comprimés à un 
seul blanc. 
Si P$ ne contient aucun espace, il est impos- 
sible de justifier la ligne. 
Le nombre d'espaces à ajouter à P$ est mis 
dans B. 

-29@9: Les espaces sont ajoutés à partir de la fin de 


P$, pour que les éléments précédents de E(4ÿ) 
contiennent les positions réelles des espaces 
correspondants. 


EXERCICE 3.12 


Programme 


1A 
2h 
534 
4h 
56 
EE | 
fi 
Ta 
96 
1a4 
114 
14 
La 
14 
154 
166 
LP 


CLS 
FRIHT "ENTREZ LA LIGNE DE TEXTE " 
FRIHT:LIME IHPUT LS 

IF Lé="" THEH EM 
FEM 
CREATION GE LA CHAINE IHYERSE 
$=" LL] 
FOR I=LENCLS: TO 1 STEF -1 
IS=1S+MICSE SI. 10 

MEXT I 

FEr1 

REM CREATION GE LA CHRIHE ALERTOIRE 
T$=| $ : H$=" ” 

FÜR Tzi T9 LENCLS$) 
HSRHCELENS TS 5+,5 
A$S=<A$+MIDS TS, A. 1: 
TSSLEFTSS TS. 4-1 2+HMIDS: T$. +1 
HEËT IT 

FE 

FREM AFFICHAGE 

PRIHT :FRIMT 

FRIHT L$:PRINT I$ :PRINT AH 
PRINT 


à EHC 
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EXERCICES POUR TO7 


Variables 
I - compteur 
À - position aléatoire d'un caractère dans Tg 


L$ - ligne de texte 
1$ - ligne inversée 
A$ - ligne aléatoire 


T$ - variable 


Commentaires 


139 : La ligne de texte est recopiée dans T£# pour 
pouvoir être manipulée sans perdre l'original. 
A$ est initialisé. 


159 : RND (1) * LEN (T$#) + 0.5 donne un nombre aléa- 
toire entre #.5 et la longueur de T$ augmen- 
tée de ÿ.5. 


169-179 : Le Aième caractère de T$ est ajouté à Af$ puis 
supprimé de T$. 


PETIT EXERCICE 3.14 


Programme 


14 CLS 

6 FÜR I=324 TO 191 
36 FRIMT CHR$c I 5; 
d@ MEX“T 1! 

“QG END 

Variable 


I - compteur (code ASCII du caractère à afficher) 


Commentaire 


39 : Les caractères s'affichant sur l'écran sont ceux 
dont le code ASCII est compris entre 32 et 191. 


EXERCICES POUR TO? 


EXERCICE 3.15 


Programme 

18 CLS 

15 CLEAF 596 

2@ LIHE INPUT "ENTREZ LINE PHÉARSE "lé 
“4 KEM 

dû REM PASSAGE EN MIHUSCULE 

‘4 REN 

5A = "" 

F& FOR I=1 T0 LEMILS) 

8A AS=MIDSC LS, 1,1: A=ASCC AS 

94 IF Aoéd AND A<91 THEH H=A+3£ 

149 V$=VS$+ CHERS A 3 

ti MEAT I 

128 FRIHT:FRIHT 

134 PRINT L$ 

148 PRINT $ 
154 EHC 


Variables 
I - compteur 
À - code ASCII du caractère à tester 


L$ - phrase à transformer 


V$ - phrase transformée 


Commentaire 


99 : Si A$ est une majuscule, son code ASCII est aug- 
menté de 32. 


EXERCICE 3.16 


Programme 


14 CIM TE SE 

24 FREM 

54 REN ENTREE LES DOMHEES 

44 IHFUT "COMÉIEN DE YALEURS 1 4 SA "H 
OM IF HET OF HN:S4 THEH 34 

6@ FOR I= 1 TO HO :FEIHT "YALEUR "ii 

VE [HPUT FM TH:MEXT [ 


4 FREM 

96 FE CALCUL Cl POURCENTAGE 

ing si 

116 FR ISi TO H:SSS4TE LH :MNEXT T 


94 


EXERCICES POUR TO? 


124 FÜR I=l TO MiTIieTé L''ti Qt S: HET I 
154 KEM 

id REM AFFICHAGE 

I54 CLS 

16 FÜR Izi TC NM 

LE PRINT "VALEUR ":T:TAE ani", 

196 PRINT LISING "###. #4": TC] 

AA HEXT I 

264 EG 


Variables 

I - compteur 

N - nombre de valeurs 
S - somme des valeurs 


T(5@) - tableau des valeurs 


Commentaire 


Pour calculer le pourcentage, il faut calculer la 
somme des valeurs (ligne 1@@-11@) puis diviser chaque 
valeur par cette somme et multiplier par 1## (ligne 129). 
Les pourcentages sont arrondis et alignés sur le point 
décimal à l'affichage en utilisant l'instruction PRINT 
USING (ligne 17#-18@). 


EXERCICE 3.17 


Programme 

18 CLEAK SA 

24 DIM Lété2.T#c 14) 

34 FEM 

4 REM ENTREE Gi TEXTE 

54 CLS 

64 INFUT "HOMERE DE FHRASES C1 À 145 ":H 
ra IF Hé OR N°19 THEH 64 

64 FOR I=1 TO H:FRIHT "FHRASE "il;i"i" 
9 LIME IMPUT T$CI5:MEXT I 

144 CLS 

119 REN 

124 RE CALCUL 


144 FOR #21 F8 l'enc rec 53 

158 LSC=ASCE MIDSC TSC I, K, 159 

168 IF LSC>64 AND LSC<91 THEN LCLSC-64 =LCLSC-64 5+1 
178 NEXT K 

186 HEXT J 
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2£4 REM 
254 REM 


EXERCICES POUR TO? 


FÜR Isi TQ SÉ6:S=S4Lé II HEËT I 
1=1 TO SéiLé TS INTELC 1 #10044/S+,5 22/1000: HEXT 
AFFICHAGE 


248 PFHIHT 


cs FOR 


Izi TO 13 


264 PRINT CHR$CÉd+I 3" M"; 

ërO FRIHT USING "###. #4": LCI: 

280 PRINT TABCZG 0: CHR 74 ui" M; 
£96 FRIHT USIHG "###, #H'" LC I+135 


398 ER": 


Vaniabltes 

I1,J,K - compteurs 

N - nombre de phrases 

S - nombre total de lettres dans T# (1%) 

LSC - code ASCII du caractère testé 

L(26) - tableau des pourcentages d'apparition des let- 

tres de l'alphabet 

T$(19) - tableau contenant les phrases du texte 

Commentaires 

16 Si le caractère testé est une lettre (majus- 
cule), alors la valeur de l'élément dont l'in- 
dice est égal à LSC-64 est incrémenté de 1. 
Par exemple : si la lettre testée est H (code 
ASCII 72), l'élément d'indice 8 du tableau L 
est incrémenté de 1. 

299 Calcul du nombre total de lettres de l'alpha- 
bet contenues dans T$#(19). 

219 Calcul du pourcentage arrondi à 2 décimales. 

259-399 Affichage sur deux colonnes des lettres de 


l'alphabet suivies de leur pourcentage de 
présence ajusté sur le point décimal. 
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EXERCICES POUR TO? 


EXERCICE 3.16 


Programme 

1 CLS 

24 INPUT "JOUR CODE 1 4 3iù "1 

34 INPUT "HUMERD OU MOIS CODE 1 À 125% "in 

44 INPUT "AMNHEE "if 

SA IF JE1 OR 1931 OR Mi OR M>1Z THEH 24 

4 FÜR I=1 TO M:REAC MH:HEXT I 

VE CH=STRSE Ie" aNg+STRSE Hi 

BG FRINT:PRIHT O$:PRIMT 

34 ENG 

2GA CATA JAHYIER, FEVRIER, MARS, HYRIL.. MAL. IILH, MIILLET 
18 DATA AÜLUT, SEPTEMBRE. OCTOBRE. HÜMENMERE , DECEMBRE 


Variables 

I - compteur 

J - numéro du jour 
M - numéro du mois 
À - année 

D$ - date 


M$ - le Mième mois 


Commentaires 
59 : Vérification de la validité des entrées 
69 : Recherche du Mième mois dans les lignes de DATA 


19 : Création de la date 


EXERCICE 3.19 


Programme 


16 CLEAK 4@n 

ef CLS 

25 MES="ERREUR CI" 

34 INPUT "DATE SEX: 11 JANVIER 13635":0$ 

44 FEM 

Sà REM RECHERCHE CGJ JOUR OÙ MOIS ET DE L'AHNHEE 

64 FOR Izi TA LENCOS::IF MIDSCDS. I1.12=" " THEN 19% 
8 HEXT I 

4 FRINT MES$:GOTI 34 
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EXERCICES POUR TO7 


104 I=VALELEFTSC DS, I-129:IF 1231 OR STRC 11e" N4LEFT 
‘DS. 1-15 THEH PRIHT ME$g:GOTO 34 

114 D$S=MIDSE CS. [+1 

126 FOR Isi TO LEMDS%:IF MID$& CS. 1.12=" " THEN 13A 
185 HEXT I 

159 A=VALCNMIDS$ DS, L+t no IF STARS A 2" APT Dé Db, I+10 
THEN FRINT ME$:GOTI 3à 

144 C$=LEFTS DS, 1-1: 


REN 
164 FENM RECHERCHE GI HUMERC CU MOTS 
RESTURE 


1F6 T 

164 FOR Mzi TO 12:REAC 4% 
149 IF A$=0 THEH 214 

135 HEXT NM 

204 FRINT MES:GOTO 34 

214 RE 

215 REM AFFICHAGE Di RESULTAT 
224 FRIHT 

Ua PRIHT Ji"stiptite": À 
ed FRIHT 

259 EHD 


56 DATA JAMYIER, FEVRIER, MARS. AYRIL, MAI. IUIH, JUILLET. 
AOLIT 
1Q CATA SEPTEMBRE. OCTOBRE , HOVEMBRE . C'ECEMERE 


Variables 

I - compteur 

J - numéro du jour 

M - numéro du mois 

À - année 

D$ - date 

AS - variable 

ME$ - message d'erreur 

Commentaires 

6f : Recherche du premier espace dans D£$. 
199 : Test de la validité du numéro du jour. 
129 : Recherche du deuxième espace dans D$. 
139 : Test de la validité du numéro de l'année. 


189-299 : Recherche du numéro du mois 
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EXERCICES POUR TO7 


EXERCICE 3.20 
Programme 


19 DIN C$9,5) 

“5 REM 

34 REM LECTURE DES CHIFFRES 

44 FÜR I=A TO 3 

5€ FÜR Jef TO 5 

bi RERLC CCI. 

TA HEËT LI 

94 RE 

NA FRENM ENTREE CES DONHEES À AFFICHER: 
té CLS 

114 IHPFUT "VOTRE HOMBRE CENTRE & ET 42339245 ":m$ 
1é4 MeLEHC MS 

154 IF Né OR M?5 THEH 119 

149 REM AFFICHAGE 

154 FOR I1=0 TO 

164 FÜR Jai TO NM 

174 CsVALCMIDSE MS... 152 

164 PRINT CD, Ji" "; 


134 HET .l 
eñA FRINT 

Zi HEXT I 
sc EC 


Det LATA MOŒHEX MOUSE ŒUUE EU UE CRIE : ONE 


54S REM 
GAS DATA UOŒE MOUCHE OM MU OM OK OMOUXAX 


515 REN 
524 DATA "OCKXX MOULE HMS OOCEOMU HOUR UAEX 


es FENM 
a DATA "OŒÆHX MOUE ŒUQN EE MU AL à LUN LE 


te FENM 
Sd CAT “ €", [D nt + MU + + 1, EEE non 


545 FENM 
STE DATA UEEEE [D : LE it ; Wrrr: u : “ +" F " > i LES: 


55e REM 
ER DATA OU OCHEXHE MUCH MOUELKEX MOUX EME ÆMSUOHE 
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965 REM 
DATA 


REM 
DATA " OXK#4 ", 


576 


575 
98 
* U] 


583 REM 
594 DATA " ÆXX ". 


* " 


EXERCICES POUR TO? 


QI ÉXYXEY u n [ * 


“ *& x" “ CL rs: "“ : "+ 


"+ £" A st XX é" « " 


Variables 


D 
M 


M$ 


C#(9,5) 


compteurs 


- chiffre à afficher 


nombre à afficher 


nombre à afficher avec les nouveaux graphismes 


- tableau contenant les dessins des chiffres 
(le premier indice (@#-9) désigne le chiffre 
et le second (#-5) une ligne du dessin. 


Commentaires 


39-79 


159 
189 


198 


Lecture des dessins (la ligne 5#@ contient le 
dessin du chiffre ÿ, la ligne 518 celle du 
chiffre 1, etc.). 


I repère les 6 lignes (0-5) des graphismes 


Affichage de la ième ligne correspondant au 
jème chiffre suivie de deux espaces pour sépa- 
rer les différents chiffres. 


Permet le passage à la ligne suivante après M 
affichages. 


EXERCICE 4.2 


Programme 

ia CLE 

26 INPUT "DOHHEZ LH NOMBRE CENTRE @ ET 245 "il 
4 IF Li OR L:£d4 THEH 2 

48 INPUT "DONNEZ UH HOMBRE CENTRE @ ET 395 "ic 
MQ IF Ch OR C:29 THEH 4n 

cg CLS 

7 LOCATE 4.6.8 

Sà LIHE CQ,Li-c39,Ln "#4" 

94 LINE CL gcc, 24n "x" 


1G4 IF INKEYS="" THEH 10 


119 ENT 
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EXERCICES POUR T07 


Variables 


L,C - variables 


Commentaires 

79 Suppression de l'affichage du curseur clignotant. 
89 Affichage de la ligne d'étoiles à la ligne L. 

99 Affichage de la colonne d'étoiles à la colonne C. 
199 : Pour éviter une remontée des lignes et l'efface- 


ment partiel de l'écran, provoqué par l'apparition 
de OK, une touche est attendue au clavier pour 
arrêter le programme. Puisque la touche frappée 
n'importe pas, elle n'est pas conservée dans une 
variable. 


EXERCICE 4.3 


Programme 


ia 
4 
sf 
4 
5a 
care 


Van 
CE = 
I = 
N(1 


CIM MC1553 
CLS 
RET 
FEM ENTREE DES MOMERES 
FOR I1=i TO 15 
FREIHT MHOMBRE ":1i" cG-14m0"; 
INPUT MI: 
IF HCI1EG OR N°I5>144 THEH 64 
NEXT I 
REM 
REM AFFICHAGE GE L'HISTOGRRAMNME 
CLS:LOCATE 4.4, 
FOR Izl TO 34 
Cacél/25 MOD £i+1 
IF HÉI-29<22,5 THEH 174 
LINE I. 2109-07, 22-2G4NC IE 119 MEME 
HEXT I 
IF IHÉErS="" THEH 134 
COLOR 7.4 
EHC 


iables 
couleur 
compteur 


5) - tableau des valeurs 
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EXERCICES POUR TO? 


Commentaires 


139 : 


La variation de I a été choisie égale à 3f# pour 
permettre d'afficher des bandes de largeur double. 


149 : Changement de couleur pour chaque nouvelle valeur 


159 


169 


de N(I) (une bande rouge, une bande jaune). 


: Si N(I/2) est inférieur à 2,5 on affiche une bande 
de hauteur nulle. 


La bande est affichée sur une hauteur proportion- 
nelle à la valeur N(I/2) à partir de la position 
21. Cette hauteur est exacte lorsque l'expression 
20*N(I/2)/199 est entière. Sinon, l'instruction 
LINE arrondit à l'entier le plus proche. 


EXERCICE 4.4 


Programme 


Que 


RS A dun io oo 
I es D MS M À ex if 
SÉSÉQSOS à Some 


o 
ù 
en 


CIM HCZ4 


LS 

INPUT "POUR COMBIEN DE NAMÈRES €1-Zd43" 5H 
IF H<i OK N224 THEH 34 
FOR 1=i TO N 
FRINT "NOMERE “:1:" CFPOSITIF à "à 

INPUT HMCI5 

IF HI:<G THEN 68 
MEAT I 

FEM 

RENE DE LA PLIS GRANDE VALEUR ENTREE 
EN 1 ) 

FOR I=Z TO H 

IF GMT) THEH GeNc 1]: 

NEAT I 

REM 

FEM CALCUL OÙ FAS 

UMA IHTEG +1 

FAS=YVMAS.-2D 

FEM 

REM AFFICHAGE DE L'HISTOGRAMME 
CLS:LOCATE &.4,g:Cz=i 

Fasie-H;£ 

FOR I=i TO NH 

IF NI2PAS-2 THEN 266 

LIME EPX+I.213-CPR+I,ZSE-HMCI 3 PAS OEM C4 
C=-C “C PASSE ALTERHATIVEMENT DE -1 À +1 
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EXERCICES POUR TO 


vr@ HEXT I 

286 FOR Isi TÜH 

294 LOCATE 27,1-1:FRINT "HE: MIDSE STRSE 11,233" ="; N< 

1° 

SAG NEXT I 

314 IF INÉEYS="" THEN 314 

324 COLOR 7.4 

2234 EHD 

Variables 

C - couleur 

1,9 - compteur 

N - nombre de valeurs dans le tableau N(24) 

G - plus grande valeur du tableau N(24) 

PXx - position de la première colonne de l'histogramme 

PAS - valeur correspondant à une étoile sur l'histo- 
gramme 

VMAX - la valeur arrondie de G par excès 

N(24) - tableau des valeurs 

Commentaires 

199 : La valeur correspondant à une étoile sur l'histo- 


gramme est égale à la valeur maximum arrondie, 
divisée par le nombre d'étoiles maximum. 


225 : Calcul de la position de la première colonne de 
l'histogramme pour permettre son cadrage horizon- 
tal sur l'écran. 


249 : Si la valeur à représenter est comprise entre $ÿ 
et PAS/2, elle est considérée comme égale à ÿ. 


259 : Affichage de la colonne d'étoiles correspondant 
à la Ième valeur. 


269 : Ecriture de l'instruction REM sous forme abrégée 
a la suite d'une instruction. 


299 : Affichage des valeurs numériques représentées sur 
l'histogramme. 


319 : Attend une touche avant de s'arrêter car l'arrêt 
du programme va provoquer une remontée des lignes. 
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EXERCICES POUR TO? 


EXERCICE 4.5 


Programme 


14 DIM H1,935 

24 CLS 

JA FENM 

46 RENM ENTREE GES DOHHEES 

54 FOR I=4 TO 3 

4 FRINT "VALEURS POLRU4STESC 141371 5+" € FREMIERE. SECO 
WOE 5 :"; 

Fa INPUT HG, 15, MC, 1: 

SA IF MG 126 OR M1.1:24 THEH 64 

SA MEAT I 

1G4 FEM 

114 REM RECHERCHE DE LA FLLUS GRAHOCE VALEUR 

124 G=f 

15@ FÜR 1=4 TT] 

148 IF HE ToSS THEN GENCG, TI 5 

154 IF HCl.I525 THEH SGEN, 1: 

164 HEXT I 

1°G IF 5=û THEH EH 

154 VMAX=INTÉ Gi+1:FAS=VMAX-ZQ 

154 RENM AFFICHAGE CE L'HISTOGRAMME 

za CLS 

#14 FOR I1=4 TO 93 

ES IF HOW, I<PAS/2Z THEH 225 

224 LINE CAKI1+3, 200-C3#14+5,21-20#HC 04.17 5-G5n " ",4.1 
209 IF Ni,I12<PAS/2 THEN 248 

234 LINE C3#1+4,203-C541+4,21-2G#HC1,19/G5 " "4,5 
44 COLOR 7.G:LOCATE 3#1+2,21.@:PRINT I+7i 

£04 NEAT I 

64 COLOR 7.4 

276 IF INKEYS="" THEH 27@ 


284 ENG 

Vaniabtes 

1,9 - compteurs 

G - plus grande valeur du tableau N(1,9) 
VMAX - valeur arrondie de G par excès 

PAS - valeur correspondant à un pavé 


N(1,9)- tableau des valeurs (N(@,x) - première série de 
dix valeurs, N(1,x) - deuxième série de dix 
valeurs). 
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EXERCICES POUR TOÿ 


Commentaires 
59-99 : Entrée des deux séries de valeurs, année par 
année. 


229-239 : Affichage d'une colonne de hauteur propor- 


tionnelle à la valeur à représenter en utili- 
sant l'affichage d'espaces en couleur inverse. 


EXERCICE 4.6 


Programme 


ia 


ER, 

36 

144 
114 
115 
124 
1:68 
144 
142 
145 
158 
155 
169 
165 
178 
175 
184 
185 
134 
195 
£84 
A5 
218 
2ca 


DIM 4636 3, MCE 

CLS:LOCATE @,1G:INPUT "ENTREZ UH NOMERE ":F 
R=RNDE -R 

PRINT: IHPUT "COMBIEN DE CESc1-65 ":H 

IF H€1 OR N>6 THEN 4@ 

CLS:LOCATE 9,4.@ 

REM 

REM LANCER DES DES 

FRINT "SOMME DES FACES SORTIES ":PRINT "POUR ARRET 
FRAPPER UNE TOUCHE. ": PRINT 

FOR I=1 TO 94 


IF INKEY#$<:"" THEH 175 
Set 

FOR .J=i TO H 
BaS+IMTÉÉXRND +1 

NEXT .I 

VE S UE S +1 

FRINT 5; 

Geû 

FOR J=H TO 6%#M 

NC J=we J5/1 

IF GNCJ> THEN GæNc.l5 
MEXT J 

NEXT I 

CLS 

FOR J=H TO 6#H 
PHS=10#6.I-H +8 

LINE cCPAS.1642-CPAS,1630 
FOR K=PAS TO PAS+1 
LINE CK.:1695-CK,168-1S@#Mc.J3/G5 
NEXT K 

MEAT .J 

PHS=PHS+10 
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EXERCICES POUR TOÿ 


254 LIHE CPAS: 1640-CPFAS, 162 
240 LOCATE &G,Z1:FRINT H 


243 FRIHT 

za PRINT TAËCZ2#H-2 "VALEUR MAX. = ";cG 

ETO IF IHKETY#S="" THEH 274 

284 EMD 

Variables 

R - Variable d'initialisation 

I,J,K - compteurs 

N - nombre de dés à lancer 

S - somme des dés pour un lancer 

PAS - position horizontale de la bande affichée 

G - valeur maximale du tableau N(J) 

V(36) - le tableau des sommes (V(s) contient le nombre 

de fois où la somme des dés à été égale à s). 

N(36) - tableau des valeurs obtenues en divisant V(s) 

par le nombre total de tirages. 

Commentaires 

39 Initialisation de la séquence des nombres four- 
nis par l'instruction RND. 

99-179 Boucle de calcul et d'affichage des sommes 
pour un nombre maximum de 6ÿ9ÿ lancers. 

199 Possibilité de sortie de la boucle avant la fin 
des 699 lancers par pression d'une touche quel- 
conque. 

119-139 : Calcul de la somme des faces sorties. 

159-165 : Pour obtenir un histogramme restant dans les 
limites de l'écran, on divise toutes les va- 
leurs par le nombre total de lancers. 

189-219 : Affichage de l'histogramme 

199 Affichage des graduations horizontales. 

195-295 : Affichage des bandes de l'histogramme. 

239 Affichage de la dernière graduation. 

249 Affichage de la somme minimale de faces sor- 


ties (c'est-à-dire du nombre de dés). 
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EXERCICES POUR TO? 


EXERCICE 4.7 


Programme 

16 REM ENTREE DE L’'ESPACEMENT 
2@ CLS 

34 IHFUT "LARGEUR DE LA MAILLE 11-1955 ";E 
4 IF Ef1 OR E:198 THEH 3@ 

54 CLS :LOCATE 4,6.4 

4 MSINTS 198/E 

£à FEM 

F4 RENM GROITES HORIZONHTALES 
BG REM L'RÛITEZ VERTICALES 

9A FEM 

1n4 FOR I=A TO NW 

116 LINE CG.I#E3-CNXE,I#E) 
126 LINE CIX#E.@5-CIXE,N#E : 
134 HEAT Ï 

144 IF IHÉEYS="" THEH 148 

154 EHD 


Variables 
I - compteur 
N - nombre de mailles sur une ligne ou une colonne 


E - largeur de la maille 


Commentaires 
199-139 : Affichage du quadrillage 


EXERCICE 4.8 


Programme 


14 CLS: LOCATE 6,64,@ 
2@ A=164:%=146:F=3 
3G FEM 

4 FENM AFFICHAGE 

59 PSET c x, EF 


FE 

FA REM ENTREE COUME TOUCHE 

BE AS=IHKEYS: IF A$="" THEH 88 

96 AS=AGCE AG) 

106 IF AS=8 THEN IF 41 THEN H<@:GOTO 54 ELSE X=4-1:6G 
GT 5% 

115 IF AS=9 THEN IF K>314 THEH 42319: GOT0 56 ELSE XX 
+1:G0T0 54 

129 IF AS=19 THEN IF 2193 THEN V=199:GOTO 59 ELSE = 
+1: GOTD 54 
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EXERCICES POUR TO? 


1939 IF AS=11 THEN IF Y<1 THEN Y“=@:GOTO 54 ELSE v=Y-1: 
SOTO S& 

146 IF AS5=26 THEN F=3:GOTO £9 

158 IF AS5=2293 THEN F=8:GC0T0 84 

164 IF AS=12: THEH 19 

178 EHD 


Variables 


F - flag (drapeau) : 3 si le point est éclairé (en 
jaune), # si le point est éteint. 


X,Y - coordonnées du point à afficher 


A$ - touche tapée par l'utilisateur 

AS - code ASCII de la touche tapée. 

Commentaires 

29 : Initialisation au milieu de l'écran, avec 


affichage, (F-3) 


199-139 : Les mouvements correspondants ne sont possi- 
bles que si le point n'est pas sur le bord 
de l'écran 


149 : Une pression de la touche INS éclaire le 
point en jaune. 

159 : Une pression de la touche EFF éteint le 
point. 

16# : Une pression de la touche ENTREE efface l'é- 
cran et repositionne le point au centre de 
l'écran. 

179 : Une pression sur une touche quelconque autre 


que celles testées arrête le jeu. 


EXERCICE 4.9 
Programme 


14 CLS:LOCATE G,4K 

15 P1=3.14159269535 

24 FEM A#ES 

34 LINE 28,1 1-(2ÿ,18%02 
46 LIHE <C15.1845-c295, 1440 
56 PSET “24,245 

64 FOR I=24 TO 294 

Th AS4KPIECI-Z41-3604 

84 “=104-5S5#5S IMC X 
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EXERCICES POUR TO7 


98 LINE -C1,%) 


19@ NEXT I 

119 REM 

12Q REM GRADURTIONS 
130 I=1 


14 K=<C9QX1/FI :+29 

154 IF K>:294 THEN 184 

164 LINE €K,18@-CK,27 5 
174 I=1+1:GOTO 14 

15@ KEM 

194 LIHE C2G,2@i-c23,2a1 
244 LIHE c24,18@3-6 23,184: 
218 LOCATE 1.13:FRINT "@" 
229 LOCATE 6,13:PRIHT"1" 
224 LOCATE 1.Z:PFRIHT "1" 
24Q 1F INKEY$="" THEN 24ÿ 
259 END 


Variables 


X,Y - coordonnées du point à afficher 


I - compteur des graduations 

PI - constante 

K - position d'une graduation 
Commentaires 

39 : Tracé de l'axe vertical 
49 : Tracé de l'axe horizontal 


69-199 : Tracé de la courbe 
169 : Tracé d'une graduation horizontale. 
199-299 : Tracé des graduations verticales 


219-239 : Affichage de l'origine et des unités sur 
chaque axe. 


PETIT EXERCICE 4.10 


Programme 


16 CLEAF .,1 

24 LS 

54 LOCATE 4,8, 

49 DEFGRSE Hz d, 24,4, 24 ,24,176.60. 74 
50 ATTRE 1,1:LOCATE 4,22 

54 FÜR Izi T0 6 
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EXERCICES POUR TOf 


#5 C=CI MOD 22+1 
Fa COLOR D,C:PRINT 1; 
8@ MEXT I 
30 ATTRE G,4:COLOR 7.68 
184 ALEA= ALEA+1 : IF INFErS="" THEN 1484 
114 GOSUE 244 
115 COLOR S. 
124 S=S+# PH € 63+1 
125 NJSNJ+i 
134 ATTRB 1,1:LOCATE Z,1:PRIHT HI 
135 LOCATE 38.1:PRINT S:ATTRE &,8 
14@ COLOR 7.@:GOTO 194 
24 REM CHUTE LE LA FLECHE 
214 PA=36#RHD6 -ALEA 
229 FÜR 1=3 TO 24 
230 PH=PA+EXEND-2: IF FH<G THEH FH=Q ELSE IF FN:35 THE 
N FN=3S 
248 LOCATE FA,1-1,@:PRINT " " 
2SA LOCATE PN,I,@-FRINT GR$&i 


266 PA=PN 
27 DER Eu 
2 LÈIEE # H. I-1,M:FRIHT " " 
Variables 
I : compteur 
C : couleurs du fond de la cible 
ALEA : nombre aléatoire 
S : score 
PA : position ancienne de la flèche 
PN : position nouvelle de la flèche 
NJ : nombre de coups joués. 
Commentaires 
19 : Réservation de la place pour un caractère gra- 
phique. 
49 : Définition du caractère graphique "flèche" 
59 : Passage en caractères de dimension double. 
69-89 : Affichage de la cible. 
99 : Passage en caractères de dimension normale. 
199 : Création d'un nombre aléatoire variant en 


fonction du temps de réaction du joueur. 
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EXERCICES POUR TO? 


115-149 : Affichage du nombre de coups joués et du 
score. 


299-399 : Sous-programme de chute de la flèche. 
219 : Calcul de la position horizontale de départ. 


239 : Calcul de la position nouvelle et test de 
cadrage dans la zone de jeu. 


249-259 : L'effet de mouvement est obtenu par effacement 
et réaffichage successifs de la flèche. 


289 : Emission d'une note au moment de l'impact de 
la flèche. 


299 : Effacement de la dernière position. 


EXERCICE 4.11 


Programme 


18 CLEA, 1 

15 DEFGRSC QG =129,66, 26, 24, 24.36,66, 129 
2Q REM ENTREE DL COTE 

34 INPUT "UN NOMERE € 1-93 "ic 

35 IF C1 OR C>9 THEN 38 

4& CLS:FRIHT 

45 FOR I<1 TO C 

S& FOR Jei TO C 

GA H=t+1 

76 IF H>9 THEH PRINT HiELSE PRINT " ";N; 
84 HEXTJ 

9ù PRIHT:PRINT 

146 NEXT I 

118 FOR H=1 TO C2 

124 FOR D=2 TO C 

129 IF CN MOD Di<>A OR D=N THEN 168 
125 COLSN MOD C:LIGet N@C > 

14@ IF COL=A THEN COL=C:LIG=LIG-1 

145 1F N>3 THEN MS=GRSCA GREC AS ELSE MS=" "+GRSC D) 
154 LOCATE 4#COL-5, SXLIG+1,8: PRINT M$ 
155 GOTO 176 

169 HEXT D 

G HEXT N 

24 LOCATE 6.22: 1:END 


Variables 
I,J - compteurs 


C - nombre de lignes et de colonnes du carré 
} 
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EXERCICES POUR TO? 


- nombre à tester 
- diviseur 


- colonne d'affichage 


LIG - ligne d'affichage 


- caractère d'effacement 


Commentaires 


45- 


199 : Affichage du carré 


119-179 : Test des nombres 


145 : Le caractère d'effacement comprend 1 ou 2 


croix selon que le nombre est inférieur ou 
supérieur à 19. 


EXERCICE 5.1 

Programme 

14 COHSOLEG, 4 : SCREENF. 9,6: CLERAR: 

15 RAM NE .258,254, 127,60 

6 ÉRENT "GUEL HIVEAU DE CIFFIQULTE SEHTKRE @ ET S% "; 


35 A$=INKE S: IF A$g="" OR 4$<"Q" OR A$:"S" THEN RD=FHD 
RD: GOTA 35 

49 H=YALCASS: PRINT NM 

45 a CLS 

SA LINE 6@,335-C39,209"2M:LIME 60,240 39,23 5" " 3: CONSOL 
E 4,82 

64 KENM IHITIALISATIONS 


55 

‘1 

14 

9a 

1aa 
116 
129 
134 
149 
159 
155 
164 
165 
178 
18a 
194 


CLS: LOCATE 9,6,6 
FOF I=1 TO 14+19#H 
AS INTC SGKRHD+7, 5 3: Y=INT(FHD#1&+4,5) 
PSET C4. CHRSC12F 1,2 
HEAT I 
#5@: Y=INTÉRNDE18+4,55:0Y=<6 
SET 4,3 GR$CG),1 
IF IHFEYS$=z"" THEH 134 
REM DEEUT DU JEU 
A$SSINKEYS: IF A$="" THEN 186 ELSE AzASCC AS) 
IF A=11 THEM DY=-1:GO0T0 184 
IF H=3 THEN DY=9:GOTO 188 
IF H=19 THEN DY=1:GOTO 184 
IF A$g="x" THEN 696 
IF CY<=4 AND DYs-19 OR (Y2>=22 AND DYz1) THEN DY=6 
IF SCREENCX+1,Y+DT2=127 THEN 594 


29QG PSET CX+1,%+D72 GR&COI:PSETCX, 3" " 
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EXERCICES POUR TO? 


219 x=A+1:Y=Y4+DT 
224 IF 239 GOTO 154 
238 PSET cxs Ts " 
244 H=N+1:NEC=NEC +1 
256 PLAY "CO" 
268 LOCATE €, 1:ATTRE1.1:COLORT,G:FRINT NBC:ATTREG.G 
&va GOTO 64 
569 REM FERDU ! 
945 PSETCX, 20" 
526 FÜR T=<i TO € 
534 LOCATE 16,1:PRIHT "FERCU":FOR TTzt TO QW:HEXT TT: 
LIMEL16,13-6381,12" "FOR TT=1 TO ÉG:HEËT TT 
548 FLAY "OdLSDODOGOCOSO":MEXT T 
545 CONSOLE 4,22 
996 IF Ni=i THEH N=N-1 
368 FOR 1=1 TO SOG:HEXT ! 
F9 GOTO 66 
ÉAY CONSOLES, 24 : ATTR6G, 4. COLOR? , 4 


618 END 

Variables 

AS : caractère correspondant à la touche frappée 
RD : variable d'initialisation 

N : niveau de difficulté 

X,Y : coordonnées d'affichage 

DY : déplacement vertical 

NBC : score 


I,T,TT : compteurs 


Commentaires 
15 : Création du caractère “glouton". 
35 : Test de validité de la touche tapée et initia- 


lisation de l'instruction RND. 
79-199 : Positionnement des obstacles sur la zone de jeu. 
129 : Affichage du glouton à la position de départ. 


139 : Attente de la pression d'une touche pour lan- 
cer le jeu. 


159-179 : Analyse de la touche frappée. 


18ÿ : Si le glouton touche l'un des bords horizontaux, 
il poursuit sa course le long de ce bord. 


199 : Test de la rencontre du glouton avec un obstacle. 
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299 
229 
249 


529- 
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EXERCICES POUR TO? 


: Déplacement du glouton. 
: Test d'arrivée au but. 


Le niveau de difficulté est augmenté à chaque 
traversée réussie. 


549 : Boucle d'affichage du message "PERDU". 


Le niveau de difficulté est diminué après 
chaque échec. 


EXERCICE 5.2 


Programme 

14 SE dÉRARAE 

15 CIM H$C1ir, Ier, Ta, TABCC SA. TABSC SG 

#4 CLS 

en DEFGRSE GG IST d, 66, 66,129. 124.66, 66, 24 

4 DEFGRSE 1 1524 , 36,86, 179,129.66.26,. 24 

35 PRINT "YONILEZ-YOUS JOUER AU MORFIOH LO-Hi ": 


4ÿ RD=FC+1:1F IHÉEYS<:>"0" THEH 4 
45 LOCATE 4.1@: IHPUT "PRENOMS DES CEUX JOUEURS 6164 CH 
KR. MAX, 5 "5 MS 7, He 1 2 


IF LEHÉHSCG 3214 OR LENCHS#C192:14 THEN 2 


6 HBP=SG:K1=4S: Visé: LAR=GE : LGSLAR-3: LéeLAr. 

24 LOCATE 4, 15:PRIHT “"FATIENCE..JE PREPARE 6 “GRILLE 
DE JEU l':COSUE ang 

SE CLS :LOCATE 4,68. 

Fr FÜR 1=9 TO 3 

F5 LINE CAL. YL+LSET 1-0 1L+LAR. TL +LIEXI à 

69 LINE APE TOIER PIE NE “1+LAR : 

94 HEXT I 


FOR I=9 TÜ Z:FOR .I<Q TO Z 


128 EQXF CHl+LSKJ+16, V1+LSHI+10 0-6 KI +LIXHI4EZ, VI+L SKI + 
125 GE 

159 HEXT J.I 

135 LOCATE 29.5,0:PRINT H$G2:SPCc 133" À LES ":GR# 6) 
148 LOCATE 294,8,64: PRINT CHRSDR RSC A LES ":GR&C 10 
159 JOXS=INTÉ RNDC -RD 5+.5 

169 LOCATE 6, 260:PRINT MSC 0%; SPCCZ)i" JOUE"; SPC 150: 
FLAY "DO" 

17G GOSUE 366 ’.IEU 

185 IEcTIGEL. THEN TRIC=<G:GOTO 168 

194 GOSUB 8Q4 ‘TEST 

206 IF G<>1 AND NBCOUP=8 THEN 254 


219 
229 


IF Ga29 THEN J0%=-J0%+1 : NBCOUP=NBCOUF+1:GOTO 1E€4 
LOCATE 3,24 
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EXERCICES POUR TOY 


234 PRINT H$CIU45:" À GAGNE...BRAYOII":FLAY "DOREMIFE 


244 EHDC 
4 LOCATE 3.28 


268 PRINT SFCCS): "MATCH NUL ":SPC 183: FLAY “SISID0" 
274 EN 

308 RENM SAISIE PAR CRAYON OPTIQUE 

319 INPUTFEH 

324 FOR 1=4 TO £:FOR Jeg TO & 

334 HINISK14LS4J48: YINISYL4LEXI46 


Sd IF SrAIHI AMD HEXIMI4+16 AWD YEVINI AND Ye TIHI+1E 

THEH Sat 

256 HE#T J.I 

26G TRIC=I 

574 FETUEN ‘SFi 

354 FEM 

54 LI=I 

“ig CO. 

Se IF CLIC u=E THEM 5584 

S24 TFIC=1 

d4f RETURN ‘SFi 

545 KENM 

ON IF JOX<SA THEH F6 

SE EINIZE 1 +LÉé + TEL 

STE YINIZ=T1+LIHL3 
A LINE SAIMI, YINI5-< SIHI4LE. TIHI+LE à 

M LINE -CHIHI.YINMI+PHLE à 

AIMI-LE. "TIHI+LE 

CRIMI YIMI 

FETLUEH ‘SF1 


FE 
A AIMI=#1+C04L3+L6 
14 TIHI=Y1+LI#L.3+LÉ 
Va PSET CAITHI+IS.YIHI 0 
28 FOR FA=Q TO HEF 
F4 LIHE 5 AIMI+TABLE RAD. VYINHI+TARSC FA 5 
F59 HEXT RH 


fé4 RETURN ‘SP1 

CAE REN 

814 FREM TEST OÙ COLIF GAGHANT 

DEN IF CG, ZI AND lxé£,B=l0x OR Je 4.@=.I0x AH 


UE Ste IOX AND fé 1 12=10% THEM G=i RETURN ‘"SFZ 


#34 FEM 

Sn FOR .I=G TO Z 

SA TF SLI. J210% THEM 93664 
F4 MEZAT I 

885 G=1l:RETURH ‘SFZ 
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898 REM 
98A FOR 1<0 TO Z 
916 


2 NEXT I 

ATA Gal :RETLIRH ‘SP2 
944 REM 

2354 G<A:RETURFH ‘5PZ 
1984 REM 


1914 FOR FASY TO HBF 
TAECERA = 1 3#C0SC RAKE. 28-NEF 


1824 


IF JXC1,C05<2>J0%X THEN 954 


1830 TABSCRA 21345 IHCRAXE. ZS./HEF 5 


1944 HEXT RA 
1954 FRETURH 
Variables 
a 

N#(1) 
J%X(2,2) 


TABC(5#) et TABS{(5@) : 


RD 

NBP 

X1,Y1,LAR, L3,L6 
JO % 

TRIC 


LI 

[e[e) 
XINI,YINI 
G 

NBCOUP 


Commentaires 
79-99 
199-139 
125 
229-249 
259-279 
399-379 


compteurs 
tableau des noms des deux joueurs 
tableau des coups joués 


tableaux des coordonnées des points 
du cercle 


variable d'initialisation 

nombre de points du cercle 

paramètre de la grille de jeu 

joueur prêt à jouer 

drapeau signalant que la case a dé jà 
été jouée 

numéro de ligne de la grille 

numéro de colonne de la grille 
coordonnées 

drapeau signalant un coup gagnant 


nombre de coups joués diminué de 1 


Dessin de la grille. 

Dessin des pavés de saisie du crayon optique. 
Initialisation du tableau J% 

Fin du programme avec joueur gagnant. 

Fin du programme par match nul. 


Sous-programme de saisie par crayon optique. 
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EXERCICES POUR TO? 


329-359 : Recherche de la case pointée par le crayon 
optique. 

599 

EXERCICE 5.3 

Programme 

14 FEM LOTO 

ci SCREEH 7.4 

24 CLS 

4 FRIHT " POUR OBTENIFR UH TIRAGE TAFEZ SUR UHE TOU 

CHE" 

SE IF IHÉEïS="" THEN FC=RNC: GOT SG 

64 COLÜR F.4:CLE 

vg COLOR 1,5 

Fo LIHE €3,41-c15, 40" " 

4 LIHE c1,2%-63,200 

So FÜR Leg TO 4 


SR So D © QE 


HO DO TN Lea EL QUE 


DUR 


LA 


Nm pe me im ne met de 2 LS It 
= 


ju 
RARES 


€ 


MD ES Fes D D RQ PS li 


ER D Po Qu Te EN a ot 5 


1) 


DES 


x] Fe eu RRQ 


FOR K=4 TO 4 
IF K=4 THEM IF L=@ THEN 124 ELSE ABX=1 ELSE ABX=S 


LOCATE AB. ZÆ4L+1. M:PRINT 19#F4+L 

LIHE CAB, ZKL+2 1 AB+S, SEL+ZI" 

MEAT KL 

FOR I=1 TO € 

TIRS I H=IHTE 4 RERHD 141 

IF I=1 THEH 24 

FOR .Izi TO I-1 

IF TIRCTI ETIRE IS THEM 154 

HET 

HEXT I 

COLOR 4 

FOR I=i TUE 

IF TIRYI:S1A THEH HExs1 ELSE HARA=SS#C TIRE TI @ 16 
LOCATE AB. SH TIRCI SD MODIRMHI: PRINT TIFCI 5: 
HEXT I 

COLOR 1 

LOCATE 24,5 

FRIMHT "AUTRE TIRAGE SH 5": 

RH=INEESS:IF ASESUC" AND AE EH" OTHEH RCEFHD : GOT 
pi 

IF A$=C" AVE 4 

LOCATE 4.22: COLOR. &: EME: 
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EXERCICES POUR TO? 


Variables 

RD - variable d'initialisation 

I1,J,K,L - compteurs de boucle 

ABX - numéro de colonne 

AS - touche tapée au clavier 

TIR(6) - tableau des tirages dimensionné implicitement. 

Commentaires 

59 Initialisation aléatoire de la fonction RND 
par exécutions successives de celle-ci. 

85-129 : Affichage de la grille des nombres avec un 


seul espace entre chaque colonne de nombres. 


149-299 : Tirage de six nombres. 


179-199 : Comparaison du nombre tiré avec les I-1 pre- 


miers. 


21#-249 : Affichage avec une couleur différente des six 


nombres tirés. 


EXERCICE 5.4 


Programme 
19 CLS:SCREEN 7,4. 
15 MESS1$="YVQOUS CALCULEZ YITE ET EIEH" 
. MESS2$="%0OUS CALCULEZ VITE MAIS MAL. LE KHESULTAT E 
25 MESSS5$="UOUS MN'ETES FHS ASS RAFILE.LE FESULTAT ES 
T: LL 
‘58 ATTRB 1,1:LOCATE €6.4 
35 COLOR 1,2:PRINT "CALCUL MENTAL" 
d4A ATTRE GA:PRIHT TABC4A"VOUS AVEZ 14 SECONDES FOUR 
Er RES 
5 FRIHT TAËC FILE FESULTAT CE L'OFERATION"SPECT 0 
Re COLOR FR: CONSOLE 9,24 
55 CLS:LOCATE à,9 
68 PRIHT 


PRINT "SI VOUS ETES PRET TAFEZ 0 "::PLAT "0" 
R=RHC: IF IHÉEYS<:"0" THEN 84 
CL3 


208 A1=INTC10B@XRND +1 
218 AS=INTS 1GGA#kRNC +1 
229 OH © 184RHD2MOD4+1 GOSUE 1948, 1140,1294,1:a4 


118 


EXERCICES POUR TO? 


24n GOSUE ZG46 

con LINE CG CSRLINM+1 2-6 534, CSL TL H+ 1 nn 

LEA FRIHT 

ce INPUT "VOULEZ-VOUS CONTINUER €<O/Ht  ":REFCONTS 
CSA IF REPCOHTS="0" THEH SA 

294 IF FEFCONTS::"H" THEH LOCATE @.CSRLIH-1:FRINT CHF: 
245::PLAT "DO":GOTO 27A | 
CONSOLE 4.24 


EHE SQUS-FROSGRAMNE ADCITIOH 
QPES=" +" 

RESOI=A1+RE 

FETLP:H 

PEN ZOUS-FROGRAMME SOUSTEACT IH 
PES=" Le LL 

FESCI=A1-HS 

FETLUFH 

FEM SOUS-PROGRANME MULTIFLICATION 
DFES=" + " 

1226 FESO=A1#A7 

12:64 RETLURH 

1304 REM SOUS-FROGRANME DIVISION 

1314 OFES=" - " 

324 FESO=A1/AZ 

13:44 FETURFH 

cn REM SOUS PROGRAMME CE TRAITEMENT 
LécA FRINT TAEC1SA1:OPES; HZ" = ": 
£034 IHPUTUAIT 2969; 16,RÈS 
24 IF RESS:RESO THEH FRINT MESSZS GATO 247 
sad FRINT MESSiS$ 

£4SQ FETURH 

CRE PRINT MESSES 

car COLOR :.8 
SAÉG LOCATE 14, CSRLIH:PRINT Al1:O0PES;AZ:" = "; RESO 
2494 COLOR ,.f 
2148 RETURH 


tin e mm QT Se 1° 


LE 
pe 
Les 

> 


mile ii ee Gi Et Fi 


ere He nt du ms ni pt be met fa 
EU D St D 


LL 
LA] 


Variables 

MESS1$#,MESS28,MESS3$ - messages affichés a l'écran 

x - variable d'initialisation 

Al,A2 - opérandes 

REPCONTS - réponse pour continuer ou arrê- 
ter le jeu 

OPES$ - contient le symbole de l'opéra- 
tion 

RESO - résultat de l'opération 
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EXERCICES POUR TO? 


RES : réponse du joueur. 

Commentaires 

59 L'instruction CONSOLE 9,24 définit la zone d'af- 
fichage active. 

2939 : L'instruction INPUTWAIT 2969;:19,RES affecte la 


réponse du joueur à la variable RES si celle-ci 
est donnée dans un délai de 10 secondes, sinon 
un branchement est effectué à la ligne 2968. 


EXERCICE 5.5 


Programme 
1 REM 
26 RENM IHITIALISATIONS 


4 
46 


CLS: SCREEMT, 5,4 
CLEAF 5 


O6 DEFGRHOH S129,66.536, 24, 24,26, 68, 123 

6 DEFGRSC 1 2=2 4. 6, 126,755,255,176,64, 274 

PA CEFGRSE Z'ozcd, 46,36, 66.66, 200. 6: 4 

199 FEN 

124 LOCATE SS:PRINT GRSC EG + GRSC 0 + CRC A5: SPC 5 "+16 
é Points" 

154 LOCATE SF:PRINT GRéc 6 i+GR SC 1 + GR 9 0: SPC T5: "4204 
Foints" 

144 LOCATÉE S,S:FRINT GR G +GRbE 6 +R SE 1 5: SPCCBd: "+2 
points" 

154 LOCATE SL: PRINT GERS 1 1+GR$E Et 4 CGRibé Eu: SPC GUN 4Z 
Points" 

164 LOCATE S,13:PRINT "AUTRE : -24 Points" 

184 LOCATE S,1S:PRINT "POUR COMMENCER TAFEZ UHE TOUCH 
E"; 

134 RCSRHDC:IF IHKEïS="" THEN 1934 

264 FENM 

214 CLS 

2e ATTRB 1:1:COLOUR1,2:LOCATE 9 G:PRIHT "JACKFOT" 

24 FOR Izi TO 5 

249 COLOR SI MODZ3+1:LOCATE F+dKI,S:FRINT " " 

299 NEXT I 

255 COLOR ,Z:'LINE cid,12)3-617,129" " 

26@ COLOR 6,û 

276 BOX (9:53-C22,173"$" 

60 FOR I=i TO 3 

379 VCI2=INTS 3XRND 

384 MEXT I 
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EXERCICES POUR TO7 


4ag REM 

414 REM L'EFILEMEHT 

415 FOR Ji TO 3% 

426 FOR I=1 TO Save 

438 LOCATE 7+4#.J.8:COLORG. €. MODZ +1: PRINT GESCI MOD 


425 PLAY "L3R2@D0" 
44@ MEXT 1. 
ASE ASS" FOR Ke1 TO 3: AS=AS+RIGHTEC STRSE VE K 32, 1 MEN 


45S IF A$="GGû" THEN RES=190:G0T0 da 

AG IF A$S="414" THEH RES=24: GOÛTO 454 

ais IF A$="196" OR A$="4G1" THEN RES=Z: COTT 45 

40 FES=- 

494 SOMME=SOMME+RES 

43@4 ATTRE 6, G:LOCATE 14.12:FRIHT SCI d-LEMCSTRSE RES 5° 
eee 

SG LOCATE 25. 14:PRINT EPCCS-LEMLSTRSE SOMME 53: STRESS 
OMME ) 

SAS LOCATE ES S:IF SOMME: THEH FRINT " GAIN" ELSE PK 
INT "FERTE" 

524 LOCATE 4,25. G:PRINT "VOULEZ-VOUS REIQOUER CCM 5"; 
536 R$S=INKEYS:IF F$<S"0" AND RS<S'N" THEN FC=FHO. GOT 


ets] 


S4@ IF R$="H" THEN LOCATE @,Z2£:COLOR *,9:EHD 
S64 LOCATE 4,20:PRINT SPC 26: ATTRE 1,1 
564 GOTO 364 


Variables 

RD - variable d'initialisation 

I,J - compteur de boucle 

V(3) - tableau de trois valeurs tirées au hasard 
RES - gain d'un coup 

SOMME - gain d'une partie 

A$ - chaîne de test du tirage 

R$ - réponse pour arrêter ou continuer 
Commentaires 

59-79 : Définition des symboles qui s'affichent. 


239-259 : Dessin des fenêtres de la machine. 


255 : Dessin de la zone d'affichage du résultat 
d'un coup 


279 : Dessin du cadre de la machine. 
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EXERCICES POUR T07 


369-389 : tirage de trois valeurs aléatoires. 


420 : La valeur 3ÿ+V(J) permet d'afficher le symbole 


correspondant à la valeur tirée après avoir 
fait "tourner" les trois symboles pendant au 
moins trente rotations. 


499-595 : Affichage du résultat d'un tirage et de la 


partie. 


559 : Effacement de la question “voulez-vous rejouer 


(O/N) ?" par affichage d'espaces jusqu'à la 
colonne 26. 


EXERCICE 5.6 


Programme 


1 
39 
45 
94 
VA 
ag 
98 


CLEAR .,2 
DEFGRSE 1 520, 126.126. 126, 126,186. 176.4 
CLS 
SCREEH 7,0.4 
1=6 
I=l+i 
REAC 4$ IF A$S<:"FIH" THEH SA 
MEMOT=I-1 
FESTORE 
FENM 
LOCATE 2.14.,04 
PRINT "FOUR COMMENCER TAPEZ SUR LHE TOUCHE" 


A FO=RHD:IF IHÉEY$S="" THEH 176 
à REM 


CLE 
PRIMT "VOLS AVEZ" à; INTCHEMOT 4 5; "SECONDES POUR LIR 


PRINT "CES" ; HEMOT ; "MOTS" 
LOCATE 4,5 


234 FOR 1=1 TO HEMOT 
24% 


REAC A$:FRIHT À$. 
NEAT I 


264 RESTOURE 

er FOR Tel TD 198#HEMOT:HEËT T 

esa CLS 

294 LOCATE 4.14 

306 INPUT "DOHNEZ LE HOMBRE DE COUPS À JOUER": NBCOUF 
314 NCESINTCRNDENBMOT 2+1 

326 FOR I=1 T0 NC 


330 KEAD MOTS 


349 NEXT I 
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LHOT=LENS MOTS 
DIM PCARE LMOT 5 


j CLS 


ATTRE 11 


A COLOR 1,2:LOCATE £,Z2:PRINT HECOUF 


COLOR 2, 1:LOCATE 32,2:FRIHT NECOUP 
COLOR 
REM 
FOR Is=1 TO LMOT 

LOCATE 2#1+15-LMIT/2,7 


7 
sf 


D] 


A FRINT GRSE 1: 


HEAT I 


A ATTRE 6,6 


COLOR F4 
LOCATE 9,12 


SGA PRINT CHRSE 24 1: 
ä LINE INPUT "DONNEZ UN MOT  ":MOTFRO$ 


cn 
AL 


Es 
Den 


(RU 


F1 


MIT 


D X 
LA Co ON Bo mit où —- 


FD PQ 
Dim d r 


GE 
DA 


Te Ti M 


Fe 2e 


AR UE EURE 


PCR 
A 


D SN Sr 1 


ii JS ñ 


Difaes & iû 


FOR I=1i T0 LMOT 
IF FCARC1)=1 THEH SSà 
IF MID$:MOTPRCGS, 1,1 =MIDSC MOTS, 1.153 THEH GOSUE 


HET I 

IF HTRÉQGU=LMOT THEH 774 

FEM 

HEÉCOUPR=HECOUE- 1 

ATTFE 1.1 

COLOR 2.1:LOCATE SEE 
FRIMT HECOUF 

ATTRE &.4 

COLOR .f 

IF HECOLIPE:A THEH 434 
ATTRE 1.1 

LÜICATÉ 12,18 

COLOR 4,F:PRINHT "FERGU LI" 
ATIFEE 4.6 

LÜCATE 3,£1 

FRIHT "LE MOT À CECOLUVEIR ETAIT "MOTS 
PLAY "DOFEDO" 

COLOR 

EHE: 

ATTRE 1.1 

LOCATE 15.1% 

COLOR 4,7:FFIHT "GAGHE 11" 
ATTFE 4,4 

PLAT "CORRE" 

COLOR 7.4 

EHC: 
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1989 RE 

1814 RE 

19206 FCARC I 5x1 

1939 HTROUJENTROIJ+ 1 

1946 ATTRE 1,1 

1856 LOCATE 2%*1+15-LMOT/2,7 

1866 COLOR 6.7 

1878 FRIHT MID$E MOTS. 1.1 

1454 COLOR F,4 

1894 ATTRE G.G 

1104 RETURH 

1504 CATA MAMAN. PAPA. FIERRE, CLOWH, BAROMETRE . ANALYSE 
1319 CATA EALLON, ETAT, EAVARD, AZOTE, APFEL, VAISSEALI 
1524 CATA GENERATEUR. ALMANACH 

1528 DATA PLAHETE, ROBOT, CINQ. VALEUR. PLACE, FINESSE. 100 


1689 DATA FIH 


Variables 

I,T - compteurs 

A$ - mots cachés 

NBMOT - nombre de mots de la liste 

RD - variable d'initialisation 

NBCOUP - nombre de coups joués. 

NC - position du mot à trouver dans la liste 
LMOT - longueur du mot à trouver 

MOTS - le mot à trouver 

MOTPRO$ - le mot proposé par le joueur 

PCAR - tableau des positions des caractères trouvés. 
NTROU - nombre de lettres trouvées. 

Commentaires 

79-199 : Calcul du nombre de mots de la liste. 
238-259 : Affichage des mots cachés. 

279 : Temporisation. 

399-499 : Affichage des nombres de coups. 

439-469 : Affichage de la grille à remplir. 

599 : Effacement de la ligne 12. 

529-559 : Comparaison, caractère par caractère, du 


mot proposé avec le mot à trouver. 
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539 : Le tableau PCAR sert à repérer les lettres 
déjà trouvées. 


199#-1199: Sous-programme de traitement en cas de carac- 
tère trouvé : le Ième élément du tableau 
PCAR est mis à 1. 


EXERCICE 5.7 


Programme 


14 CLEAF Sd 
24 DIN C$i 248: 
24 CLS 

44 FRINT "1 - LECTURE OÙ FICHIER SURF CASSETTE" 

54 PRINT "Z - AFFICHAGE SUR L'ECRAH" 

ÉA PRINT "3 —- INSERTION DE C'OHHEES" 

79 PRINT "4 - SUPPRESSION DE DONNEES" 

#4 PRINT "5 —- SAUVEGARDE OÙ FICHIEF SUR CASSETTE" 
9Q@ FRIHT 

169 FRINT "&G - FIH" 

114 PRIHT:PRIHNT TABCIRS"CHOIX ces"; 
115 IHFUT FE 

126 IF RS=QG OF RS THEH END 

136 OH FR GOSUE 1A66,1506, 240, 2SAn, 240G 
146 GOTO 34 
1H3A REM 
1414 FEM LECTURE SUR CASSETTE 

1HcA REM 

1434 IMPUT " LH CASSETTE EST-ELLE FOSITIOHNNEE 
OUT -HOH 3": RS% 

1G44 IF K$£>"OUI" THEH RETLURH 

1454 INPUT "NOM GU FICHIER L'ENTREE :":F11$ 

1074 OPEN "I" #1. FI1$ 

11H84 I=ÿ 

1634 I=1+1 

11Q@6 IF EQF1ii=-1 THEH 1144 

1116 LIHE IHPUT #1, Déc 15 

1124 GOT 1434 

1: FE 

FT=I-i 

CLOSE #1 

FETLIFH 

FEr 

FEM AFFICHAGE 

1524 FEM 

1559 IF FT=f THEH 1574 

1244 FOF J=l TO FT 


A 


ea 


Mbits 
EE] 


Mn bb 
Er It 


= ere be Le 
A) 


= D 
= 
Ex 


es 
mi i 
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135@ FRINT D$cI) 
1564 HEXT I 
1574 FRINT:PRIHT "POUR FEYEHIR AU MENU TAPEZ UHE TOUL 


1564 IF INKEYS$="" THEN 1544 

15989 FETURH 

cnaG REM 

2019 REM IHSERTIOH 

2429 FEM 

2654 FT=PT+1 

2044 PRIHT "ENREGISTREMENT H.":FTi" à 
2959 LIME IHPUT D$CPT;: 

2@69 INPUT "VOULEZ-VOUS CONTINUER CD-H3"5RS% 
26r4 IF Fé="0" THEN 2934 

2454 RETURH 

244 FEM 

2314 FREM SUPPRESSION 


£ REM 
2234 NET "HUMERD DE L'EHFEGISTREMENT 4 SUPFÉIMERM GE 
2948 IF KG OR ESFT THEH ZA 
2543 FRIHT "ENREGISTREMENT HOME" 5 Mi OSCK 
2550 IHPUT "SUPPRESSION DOME LEE ot HOMO ES 
2533 IF R$i"OLIT" THEH FETURH 
2564 FT=FT- 1 
2565 FÜR I=K TO FT 
re Ci J'i=C$e +1 
Énse MEXT I 
234 RETURH 
2608 PRINT "EUFFRESSION IMPOSSIELE" 
2616 PRIHT:PRINT "TAPEZ UHE TOUCHE FOUR CONTIHUER " 
2624 IF INKEYS="" THEH Z62f 
2634 FETURH 
3048 RE 
3414 REM ECRITURE SUR CASSETTE 
3624 FEM 
es FORÈT ER CAS SETTE EST-ELLE EN POSITION OC 


2640 JF. REC OUT" DR FT=û THEH FETLFH 
SAS INPUT "HOM OU FICHIER SORTIE : "3: F10S$ 
A OPEN "OO". #1. FI 

SASA FOR I=i TO FT 

34938 PRINT #1,0# 7: 

31H84 MEXT I 

5119 CLOSE #1 

3124 FETURH 
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Variables 

R - réponses au menu 

K - numéro de l'enregistrement à supprimer 

R$# - réponse 

FIIS$ - nom du fichier lu 

FIOS - nom du fichier écrit 

1,9 - compteurs 

D$(299) - tableau contenant la liste des enregistrements 
PT - nombre d'enregistrements du fichier 
Commentaires 

19-149 : Programme principal comprenant le menu d'ai- 


guillage sur les différents sous-programmes. 


1999-1169 : Sous-programme de lecture du fichier à par- 
tir de la cassette. 


1979 : L'instruction OPEN "I",#1,FIIS affecte au 
canal 1 le fichier FII$ enregistré sur cas- 
sette et précise ("I") que l'échange des 
données s'effectuera de la cassette vers le 
micro-ordinateur. 


1199 : La fonction EOF(1)-End of File- est utilisée 
pour indiquer la fin du fichier. Le chiffre 
1 précise le numéro du canal. 


111$ : # 1 dans l'instruction LINE INPUT indique 
que l'entrée se fait à partir du canal 1. 

115$ : L'instruction CLOSE+#H1 ferme le fichier. 

1599-1599 : Sous-programme d'affichage du contenu du 
fichier. 

2999-2989 : Sous-programme d'insertion d'enregistrements. 

2599-2639 : Sous-programme de suppression d'enregistre- 


ments. 


2565-2589 : Après suppression d'un enregistrement, tous 
les enregistrements suivants sont décalés 
d'un rang vers le haut. 


3999-3129 : Sous-programme d'enregistrement du fichier 
sur la cassette. 


39 79 : L'instruction OPEN"O", 1,FIOS affecte au 
canal 1 le fichier FIO$ à enregistrer sur 
la cassette et précise ("O") que l'échange 
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des données s'effectuera du micro-ordinateur 
vers la cassette. 


3999 : #1 dans l'instruction PRINT indique que 
l'envoi se fait vers le canal 1. 


311# : L'instruction CLOSEH1 ferme le fichier. 


EXERCICE 5.8 


Progranne 

14 CLS 

15 CLEAR ,.€ 

CA SCFEEH F,64,1 

25 DEFGRSE A sh, 64,2 : 

34 DEFGRSGE 1 =, A. 3€ Ed, ESS, 

35 CATA FÜLGE. VERT. JAUNE. BLEU. MAGENTA, CYAH. MHITE 

[e TITRES="MASTERMIHC" 

45 E$="FYIENCU" 

54 EE Le 

(21) HBFTOH=S 

5 ECisE .. F 4 F EU za 3,9 "UE" 

ra FOR I=i TD 16 

ca FPSET cCHkI4+r, 8 MIDS TITÉES. 1,139,CT MOG7 241.5 

5 HEXT I 

A4 COLOR 7.4 

144 LOCATE 5.15 

114 PRINT "SI VOUS ETES FRET TAPEZ Ù QE 

124 REM TT SEFT À IHITIALISER FRHC 

154 TT=TT+1:1IF INKEïSC:"I0" THEH 134 

154 FRIHT "O":PRINT 

155 PRINT TAECS:2"COMBIEN VOULEZ-VOUS C'ESSAIS": : INPUT 
HECOUR : FRINT : FRIHT 

1e IF NECOLUF=:S THEM 155 

165 REM AFFICHAGE DES REGLES CU JEU 

1ra RESTORE 

195 FOR Isi TO HBLOL 

184 READ C$ 

125 COLOR I 

196 PRINT TAEC14530$;TAËCZGO"TAFEZ ":LEFT$C LS, 1 * 

264 NEXT 1 

214 COLOR 7 

LED PRINT TAËC62"AUTRES TOUCHES : "+GRSCG +" "GREC 1 + 

" ";:COLOR GG, S:PRIHT "ENTREE"; : COLOR 7,68 

2E5 PRINT:PRINT 

229 PRINT TABS5"B SIGNIFIE BIEN FLACE" 

244 PRINT TABCS5"M SIGNIFIE MAL FLACE" 

258 PRINT:PRIHMT: 
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255 GOSUE 3948 ‘CHOIX CE LA CONFIGURATION 4 DECOUVRIE 
264 FRINT "ESSAI "TAES 20 2"REFCONSE " : PRINT 
263 LOCATE 4, CSRLIH, A 
27 FOR 1=i TO HECOUF 
24 FÉINT 1: 
ea GOSUR 1448 "SAISIE QU COUR JIQUE 
308 GOSUE : es FEFOHSE 

314 FRIHT:FRIH 

326 IF MEE=S ER ATTRE 1.1:-PRIHT:FEIHT:FRIHT TRETE 1 
GAGHE":ATTRE 4.4: LOTO dG 
3359 HEËT I 
af PEIHT:PRINT "VOUS AVEZ PERDU. FOUR GAGHER IL FALL 
AIT .IOLUER :" 
354 PLAY "SODOASIOURE" 
364 FENM AFFICHAGE DE LA COMBIHAISON 4 DECOUVRIE: 
3r@ FOR Izi Ti] HEPIOH 
369 PSETESKI+IS. CSRLIH SI" OU INSTRC 1. ES. RS Il... 
298 NEXT I 
4nà COLOF F.W4 
414 END 

144 REM SAISIE Cl COUR JOUE 
1445 HULI=CSRLIH 
18914 FOR .I=1 TO HBFIOH 
1424 ASC Ii= "y" 

1429 FSETS 34, HULI 2" ",7.4.4 
1454 HEST I 

iñéa .I=i 
LAFB PSETE SET, HULT 2" 7", IHSTRE 1.88. A$c 115,4. 

1A4£4 FENM EHTREE CE C.i$ ET TEST POUF LE RANGER CAUS H$ 
“Ji OU DEFLACEMEHT CU CURSEUR 

1114 LIS=IHPUTSE 1 

1124 L=IHSTRS1.8$,CI$ 

113 CASCEASCS CIS à 

1149 IF CASC<28 AND CASLS:9 AND CHSCESISTHEN IF L=G T 
HEH 1114 ELSE A$i.15=C.)$ 

1169 FSETE3#.), HULI 1" ", IHSTRM 1,E$,A$C.15 1.0, 

1154 IF CASC=13 THEH COLOR, @: FETLUEMH 
SA IF CHSC=S THEN I=I-E 
14 J=J+] 

G JF 1:5 THEH 
1220 IF J<i THEH 
1254 GOTO 1474 
244 RENM REFONSE All COUP JOUE 
2014 HBE=<G:H6M=QG ‘ INITIALISATIONH 
2915 KEM CALCUL CGJ HOMBRE DE FIONS BIEN FLACES 
2024 FOR H=i TO NEPIOH 
234 IF RSCHI=ASCH) THEN HEB=HBB+1 : ASCH EUX" 
2444 NEXT H 


5 
t 
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FÜR H=i TO HEPIOH 

IF A$SCH3="£" THEM Z110 

REM CALCUL DL HOMBRE DCE FIOHNS MAL FLACES 
FOR Ke=1 TO HEPIOH 


IF ASK SR &T Hi THEH HEMEHEM+1: ASC 1e" GOTO 


HET E 

HEXT H 

FREM AFFICHAGE CES RESULTATS 
LACATE 28, CSFL LH 

FÜR T=1 TO HEH 

FRIMT "MH  "; 

MEXT T 

FOR T=i TO HEE 

FRINT "E  "; 

HEXT T 


A RETURH 


FENM CHOIX CE LA CONFIGURATION À DECOLUMRIR 
TT=<RNDE -TT : 

FOR I=i TO HEÉPFICH 

P=INTE FERME +1 

R$<I=MICS ESF, 1: 

HEXT I 

FETURH 


bles 
S - chaîne de caractères 


- initiales des couleurs utilisées 


- nombre de couleurs 
N - nombre de pions 
P - nombre d'essais 

- couleur 


,K,T- compteurs 
- nombre de pions bien placés 
- nombre de pions mal placés 
- tableau de la combinaison à découvrir 
- essai proposé par le joueur 
- numéro de ligne du curseur 
- Caractère tapé par le joueur 
- position du caractère tapé dans B$ 


- code ASCII du caractère tapé 
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Commentaires 


25-39 
45 


65-85 
165-25# 
179-299 


229 
270-339 
1990-1239 
1919-1059 


1129 


1149 


1169 


1189 


2999-2189 


3090-3069 


EXERCICE 5.9 
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Définitions des caractères "flèches". 


La lettre B étant utilisée pour la couleur 
bleue, on a choisi la lettre W (white) pour 
la couleur blanche . 


Affichage du titre 
Affichage des règles du jeu. 


Affichage de la correspondance touche/cou- 
leur. 


Affichage des autres touches utilisables. 
Saisie et traitement des essais. 
Sous-programme de la saisie d'un essai. 


La combinaison initiale est composée de cinq 
pions blancs. 


Si le caractère tapé CJ$ n'appartient pas à 
B$, L sera égal à #. 


8,9 et 13 sont les codes ASCII respectifs 
de "“flèche-à-gauche", "flèche-à-droite" et 
"ENTREE". 


Suppression du point d'interrogation dans 
la case validée. 


La saisie de l'essai est terminée si le 
joueur tape sur la touche "ENTREE", 


Sous-programme d'analyse de la combinaison 
proposée . 


Sous-programme de choix de la configuration 
à découvrir. 


Programme 

14 CLS 

£a CLEAK . 1: DEFIHT — 

cs DEFGRS G1=2 d'EM,Î2E PES. LAS, 200. LEE 

4n COLOR 1,3-ATTFÉ 1.1: ÉORATE F,4 

SA PFIHT " JEU LE HIM":COLOR FM: ATTÉE SG. FEIHT 


A TIHPUT CHONM CU PREMIER JOUELUR" :; Héé à 


rE IHFUIT 
SCFEEH 


LEE 
ï 


= 
En, 


"HO Cl GELISIEME OLEUR" : H&e 1 
ss L'CLS:LOCATE 6.4, 
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124 REM 

39 FEM INITIALISATION OU JEU 

144 FEM 

159 GOSUE 1594 

169 Téti=1: TZ = TG D=S TE di=7 : SOM=16 
1r4 FEM 

188 FEM CEBUT CU JEU 

194 REM 

244 FOR K=@G TO 15 

214 HIS=HS&CE MOD Zi 

ceB GOSUE 2504 ‘HIS QUE 

254 GOSUE 2904 ‘EFFACEMENT 

244 IF SOM<=1 THEH 56 

24 HEAT KE 

54@ FEM 

514 FEM NOM DL GAGHANT 

515 IF S0M=@ THEH HI$S=H$ECE+1 : MOD Z5 
524 COLOR 1,7 :ATTRE 1,1:LOCATE 14,5 
534 PRINT HI$+" 4 GAGHE" 

549 ATTFE G.G@:COLOR 7.4 

554 LOCATE 4,22:EHD 


FEM 
1945 PEN AFFICHAGE IHITIAL DES ALLUMETTES 
1514 FEM 
1515 FÜR Jzi TO à 
1524 FÜR I=i TO G-24.1 
un LINE CSI, ESS SET. ETS OM AT 
1554 FPSET CTI. 21-5411 GR$c@,1.6 
154 HEXT 1,4 
1559 COLOR 7.4 
1569 FETLIRN 
cung REM 
2645 FEM EFFACEHENT CES ALLUMETTES 
Sm14 KEM LE LA LIGHE LIG 
cAz4 FEM 
és FOR I2TéLIGY TO TÉLIG)-HERAL+1 STEF -1 
2444 LIME CTÉT.SÉLIG TE EÉEI, -4+5#L1G) " "GA 
14 HET I 
£GEG COLOF F4 
AFA TELIG ET LIG -HEAL 
re SONSSON-HERAL 
4 FETLFH 
FREM 
A5 FENM ACAUISITION C'UH COUP 
FEM 
ge LOCATE £9.S:PRINT NJ$+" JOUE" 
252û LOCATE 24,6.1:FRIHT "NUMERO DE LIGHE "+CHRS: 2d 1, 
:IWPUT LIG 
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2925 LOCATE 15.7 :PRINT "HOMERE D‘ ALLUMETTES"+CHPgc 24 1 


5: INPUT HEAL 

2934 IF HEAL@TÉLIG: THEN LOCATE 26.5. 6:PEINT "REJOUEZ 
":FLAY "SIDO":GOTO 252 

2544 FOR 1=5 TO & 

2294 LINE £15.12-638,15 "0 

2264 HEXT I 

25vA RETURFH 


Variables 

N#$(1) - tableau des noms des deux joueurs 

T(4) - tableau des nombres d'allumettes par ligne 

SOM - nombre d'allumettes restantes 

NJ$ - nom du joueur 

NBAL - nombre d'allumettes 

1,J,K - compteurs 

LIG - numéro de ligne 

Commentaires 

29 L'instruction DEFINT A-Z précise que toutes 
les variables utilisées seront entières. 

39 Définition du dessin du bout de l'allumette. 

299-259 Chaque joueur joue en alternance (K MOD 2 
prend alternativement la valeur #ÿ et 1). 

515 Le perdant est le joueur qui prend la dernière 


allumette. 
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